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

[mohfa]

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

[kachwahed]

عمل جميل أخي محمد
يمكن اختصار بعض التوابع مثل SaveObjectState، بتمرير TObject وفحص نوعه
هناك توابع لأجل ذلك في المكتبة TypInfo.
كنت أستخدم دالة بشكل Overload كما يلي:
الإعلان:
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;
التعريف:
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 ـ :
WriteIni(Edit1, Edit1.Text);//Save Text
Edit1.Text := ReadIni(Edit1, Edit1.Text);//Load Text

[mohfa]

اخيkachwahed كان هذا العمل على السريع لما رائت كثرة الطلب على هكذا موضوع ...
اخيkachwahed يكنك عمل Optimization للكود ... :)

[AL-MOB4RM3G]

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

مشآركة جميلة اخي الكريم,
قمت بتحميل المثآل وتجربته,

هذه الطريقة منظّمة اكثر + لن نوآجه مشآكل مع اي معلومات سنقوم بحفظها او لا,,
طريقة تنظيم الكود = وقت اكثر, لكن نتيجة افضل, وكل شئ حسب الحآلة طبعاً,

بالتوفيق اخي الكريم