home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / XLSAdapter / UXlsBaseClientData.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-10-03  |  1.4 KB  |  58 lines
  1. unit UXlsBaseClientData;
  2.  
  3. interface
  4. uses Classes, UXlsBaseRecords, UXlsSST, 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.     procedure ArrangeCopySheet(const SheetInfo: TSheetInfo);virtual; abstract;
  24.  
  25.     class function ObjRecord: ClassOfTBaseRecord; virtual;
  26.  
  27.   end;
  28.  
  29.   ClassOfTBaseClientData = class of TBaseClientData;
  30.  
  31.  
  32. implementation
  33.  
  34. { TBaseClientData }
  35.  
  36. procedure TBaseClientData.ArrangeId(var MaxId: word);
  37. begin
  38.  
  39. end;
  40.  
  41. function TBaseClientData.GetId: Word;
  42. begin
  43.   Result:=0;
  44. end;
  45.  
  46. procedure TBaseClientData.SetId(const Value: Word);
  47. begin
  48.  
  49. end;
  50.  
  51. class function TBaseClientData.ObjRecord: ClassOfTBaseRecord;
  52. begin
  53.   Result:= nil;
  54. end;
  55.  
  56. end.
  57.  
  58.