Record helper

    1type
    2
    3  {  TZazPoj  }
    4
    5//je to jen příklad – musí být deklarován jako PACKED !!
    6  TZazPoj = packed record 
    7    {tohle je vychytávka na záznamy, sem ukládám, že jsou složky záznamu OK, a nemusím testovat další políčka}  
    8    FillOK: Boolean; 
    9    FVERSE: Word;
   10    {zde jsou data}
   11    FID: Integer;
   12    //stringy musí mít velikost, je to vlastně ShortString
   13    FSMLOUVA: string[20]; 
   14    FJMENO: string[48];
   15    {případně další složky nebo vnořené záznamy…}
   16  public
   17    procedure Clear;
   18  end;
   19
   20
   21
   22{ TZazPoj }
   23
   24procedure TZazPoj.Clear; //je to dobré i pro variantní záznamy
   25begin
   26  //v případě ne-PACKED nelze tímto jednoduchým způsobem mazat řetězce a pole!
   27  FillChar(Self, SizeOf(Self), 0);
   28end;

    1type
    2  TZazPojStore = record helper for TZazPoj
    3  public
    4    procedure SaveToBlob(Table: TDataset; BlobName: string);
    5    function LoadFromBlob(Table: TDataset; BlobName: string): Boolean;
    6  end;
    7
    8{ TZazPojStore }
    9
   10function TZazPojStore.LoadFromBlob(Table: TDataset; BlobName: string): Boolean;
   11var
   12  blobF: TBlobField;
   13  bs: TStream;
   14begin
   15  Result := False;
   16  if Table.FieldByName(BlobName).IsBlob then
   17  begin
   18    blobF := Table.FieldByName(BlobName) as TBlobField;
   19    bs := Table.CreateBlobStream(blobF, bmRead);
   20    try
   21      bs.Read(Self, SizeOf(Self));
   22      Result := True;
   23    finally
   24      bs.Free;
   25    end;
   26  end;
   27end;
   28
   29procedure TZazPojStore.SaveToBlob(Table: TDataSet; BlobName: string);
   30var
   31  blobF: TBlobField;
   32  bs: TStream;
   33begin
   34  blobF := Table.FieldByName(BlobName) as TBlobField;
   35  bs := Table.CreateBlobStream(blobF, bmWrite);
   36  try
   37    bs.Write(Self, SizeOf(Self));
   38  finally
   39    bs.Free;
   40  end;
   41end;