حفظ اخر التغييرات التي تم اجراؤها على البرنامج

[kachwahed]

في هذه الحالة تقوم بكتابة شيء مثل:

PHP كود :

procedure TForm1.BtnSaveClick(Sender: TObject);
var i: Integer;
    F: TFileStream;
begin
F := TFileStream.Create('Data.dat', fmCreate);
for i:=0 to Self.ComponentCount-1 do
F.WriteComponent(Components[i]);
F.Free;
end;

procedure TForm1.BtnLoadClick(Sender: TObject);
var i: Integer;
    F: TFileStream;
begin
F := TFileStream.Create('Data.dat', fmOpenRead);
for i:=0 to Self.ComponentCount-1 do
F.ReadComponent(Components[i]);
F.Free;
end;