18-07-2020, 09:18 AM
قمت بتجربة لكتابة record على TMemoryStream على النحو التالي (لكن لم تنجح؟؟)
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
wPersonne, rPersonne : TPersonne;
MS : TMemoryStream;
begin
with wPersonne do
begin
ID := 2020;
Nom := 'Batata';
Prenom := 'joun';
end;
MS := TMemoryStream.Create;
try
MS.Write(wPersonne,sizeof(TPersonne));
MS.Read(rPersonne, sizeof(TPersonne));
with rPersonne do
begin
memo1.Lines.Add(format('ID = %d, Nom = %s, Prenom = %s',[ID, Nom, Prenom]));
end;
finally
FreeAndNil(MS);
end;
end;