ZidanStore.pas

   1 unit ZidanStore;
   2
   3 INTERFACE
   4
   5 type
   6 tfid=array [0..20] of byte;
   7 tStoreObjectInfo=object
   8  hnd:file of byte;
   9  final:boolean;
  10  rc:Word;
  11  length:LongWord;
  12  procedure Open(const fid:tfid);
  13 end;
  14
  15 IMPLEMENTATION
  16 procedure tStoreObjectInfo.Open(const fid:tfid);
  17  begin
  18 end;
  19
  20 END.
  21