home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / delphi / kolekce / d56 / FLEXCEL.ZIP / XLSAdapter / Inc / TSSTImp.inc < prev    next >
Text File  |  2002-06-24  |  805b  |  26 lines
  1. //************************************************************************************//
  2. //  File created automatically by GenerateRecords.xls                                 //
  3. //  Do not modify by hand                                                             //
  4. //************************************************************************************//
  5.  
  6. function TSST.GetItems(index: integer): TSSTEntry;
  7. begin
  8.   Result := inherited Items[Index] as TSSTEntry;
  9. end;
  10.  
  11. procedure TSST.SetItems(index: integer; const Value: TSSTEntry);
  12. begin
  13.   inherited Items[Index] := Value;
  14. end;
  15.  
  16. function TSST.Add(aRecord: TSSTEntry):integer;
  17. begin
  18.   Result:=inherited Add(aRecord);
  19. end;
  20.  
  21. procedure TSST.Insert(Index: Integer; ARecord:TSSTEntry);
  22. begin
  23.   inherited Insert(Index, ARecord);
  24. end;
  25.  
  26.