Hello
You can write published properties of DBGridEh to string using next code
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
ss: TStringStream;
s: String;
begin
ms := TMemoryStream.Create;
ss := TStringStream.Create('');
ms.WriteComponent(DBGridEh1);
ms.Position := 0;
ObjectBinaryToText(ms, ss);
DBMemoEh1.Text := ss.DataString; // then write down the text where you want
ms.Free;
ss.Free;
end;
then write down the text where you want
same for read from text to DBGridEh
Code:
procedure TForm1.Button2Click(Sender: TObject);
var
ms: TMemoryStream;
ss: TStringStream;
begin
ms := TMemoryStream.Create;
ss := TStringStream.Create(DBMemoEh1.Text);
ObjectTextToBinary(ss, ms);
ms.Position := 0;
ms.ReadComponent(DBGridEh1);
ms.Free;
ss.Free;
end;