home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / FlexCel / UFlxFullDataSets.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-09-26  |  805 b   |  40 lines
  1. unit UFlxFullDataSets;
  2.  
  3. interface
  4. uses contnrs;
  5. type
  6.   TFullDataSet= class
  7.   public
  8.     Text: string;
  9.     RowOffset: integer;
  10.     Col: integer;
  11.     constructor Create(const aText: string; const aRowOffset, aCol: integer);
  12.   end;
  13.  
  14.   TFullDataSetList= class(TObjectList)
  15.   private
  16.     function GetItems(index: integer): TFullDataSet;
  17.   public
  18.     property Items[index: integer]: TFullDataSet read GetItems; default;
  19.   end;
  20. implementation
  21.  
  22. { TFullDataSetList }
  23.  
  24. function TFullDataSetList.GetItems(index: integer): TFullDataSet;
  25. begin
  26.   Result:= Inherited Items[index] as TFullDataSet;
  27. end;
  28.  
  29. { TFullDataSet }
  30.  
  31. constructor TFullDataSet.Create(const aText: string; const aRowOffset,
  32.   aCol: integer);
  33. begin
  34.   Text:= aText;
  35.   RowOffset:=aRowOffset;
  36.   Col:=aCol;
  37. end;
  38.  
  39. end.
  40.