home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / XLSAdapter / TColInfoListHdr.inc < prev    next >
Encoding:
Text File  |  2002-10-05  |  798 b   |  18 lines
  1. //************************************************************************************//
  2. //  File created automatically by GenerateRecords.xls                                 //
  3. //  Do not modify by hand                                                             //
  4. //************************************************************************************//
  5.  
  6. private
  7.   function GetItems(index: integer): TColInfo;
  8.   procedure SetItems(index: integer; const Value: TColInfo);
  9. public
  10.   property Items[index: integer]: TColInfo read GetItems write SetItems;  default;
  11.   function Add(aRecord: TColInfo):integer;
  12.   procedure Insert(Index: integer; aRecord: TColInfo);
  13. private
  14.   Sorted: boolean;
  15. public
  16.   function Find(const aItem:integer ; var Index: integer): boolean;
  17.   procedure Sort;
  18.