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