حفظ البرنامج بأخر شكل بعد التغييرات عليه

عمل جميل أخي محمد
يمكن اختصار بعض التوابع مثل SaveObjectState، بتمرير TObject وفحص نوعه
هناك توابع لأجل ذلك في المكتبة TypInfo.
كنت أستخدم دالة بشكل Overload كما يلي:
الإعلان:

PHP كود :
procedure WriteIni(Control: TControl; StringProperty: string); overload;
    procedure WriteIni(Control: TControl; IntegerProperty: Integer); overload;
    procedure WriteIni(Control: TControl; BooleanProperty: Boolean); overload;
    function ReadIni(Control: TControl; StringProperty: string): string; overload;
    function ReadIni(Control: TControl; IntegerProperty: Integer): Integer; overload;
    function ReadIni(Control: TControl; BooleanProperty: Boolean): Boolean; overload; 

التعريف:

PHP كود :
function TForm1.ReadIni(Control: TControl; StringProperty: string): string;
begin
  Result := Ini.ReadString(Control.Parent.Name, Control.Name, StringProperty);
end;
function TForm1.ReadIni(Control: TControl; IntegerProperty: Integer): Integer;
begin
  Result := Ini.ReadInteger(Control.Parent.Name, Control.Name, IntegerProperty);
end;
function TForm1.ReadIni(Control: TControl; BooleanProperty: Boolean): Boolean;
begin
  Result := Ini.ReadBool(Control.Parent.Name, Control.Name, BooleanProperty);
end;
procedure TForm1.WriteIni(Control: TControl; StringProperty: string);
begin
  Ini.WriteString(Control.Parent.Name, Control.Name, StringProperty);
end;
procedure TForm1.WriteIni(Control: TControl; IntegerProperty: Integer);
begin
  Ini.WriteInteger(Control.Parent.Name, Control.Name, IntegerProperty);
end;
procedure TForm1.WriteIni(Control: TControl; BooleanProperty: Boolean);
begin
  Ini.WriteBool(Control.Parent.Name, Control.Name, BooleanProperty);
end; 

طريقة الاستخدام مع أي مكون بأي خاصية، مثال String ـ :

PHP كود :
WriteIni(Edit1, Edit1.Text);//Save Text
Edit1.Text := ReadIni(Edit1, Edit1.Text);//Load Text 