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

[kachwahed]

عمل جميل أخي محمد
يمكن اختصار بعض التوابع مثل 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