home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / delphi / kolekce / d56 / FLEXCEL.ZIP / XLSAdapter / UXlsBaseClientData.pas < prev    next >
Pascal/Delphi Source File  |  2002-05-26  |  1KB  |  51 lines
  1. unit UXlsBaseClientData;
  2.  
  3. interface
  4. uses classes, UXlsBaseRecords, USST, XlsMessages;
  5. type
  6.   TBaseClientData = class
  7.   protected
  8.     function GetId: Word;virtual;
  9.     procedure SetId(const Value: Word); virtual;
  10.   public
  11.     RemainingData: TBaseRecord;
  12.  
  13.     property Id: Word read GetId write SetId;
  14.     procedure ArrangeId(var MaxId: word);virtual;
  15.  
  16.     procedure Clear; virtual; abstract;
  17.     function CopyTo: TBaseClientData; virtual; abstract;
  18.     procedure LoadFromStream(const DataStream: TStream; const First: TBaseRecord; const SST: TSST); virtual; abstract;
  19.     procedure SaveToStream(const DataStream: TStream); virtual; abstract;
  20.     function TotalSize: int64;virtual; abstract;
  21.  
  22.     procedure ArrangeInsert(const aPos, aCount:integer; const SheetInfo: TSheetInfo);virtual; abstract;
  23.  
  24.     class function ObjRecord: ClassOfTBaseRecord; virtual;abstract;
  25.  
  26.   end;
  27.  
  28.   ClassOfTBaseClientData = class of TBaseClientData;
  29.  
  30.  
  31. implementation
  32.  
  33. { TBaseClientData }
  34.  
  35. procedure TBaseClientData.ArrangeId(var MaxId: word);
  36. begin
  37.  
  38. end;
  39.  
  40. function TBaseClientData.GetId: Word;
  41. begin
  42.   Result:=0;
  43. end;
  44.  
  45. procedure TBaseClientData.SetId(const Value: Word);
  46. begin
  47.  
  48. end;
  49.  
  50. end.
  51.