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

[kachwahed]

السلام علكيم
أضفت بعض التحسينات:

PHP كود :

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

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


جربت هذه الشيفرة وهي تؤدي المطلوب.