06-01-2010, 05:40 PM
06-01-2010, 06:02 PM
عمل جميل أخي محمد
يمكن اختصار بعض التوابع مثل SaveObjectState، بتمرير TObject وفحص نوعه
هناك توابع لأجل ذلك في المكتبة TypInfo.
كنت أستخدم دالة بشكل Overload كما يلي:
الإعلان:
التعريف:
طريقة الاستخدام مع أي مكون بأي خاصية، مثال String ـ :
يمكن اختصار بعض التوابع مثل 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;
PHP كود :
WriteIni(Edit1, Edit1.Text);//Save Text
Edit1.Text := ReadIni(Edit1, Edit1.Text);//Load Text
06-01-2010, 07:23 PM
اخيkachwahed كان هذا العمل على السريع لما رائت كثرة الطلب على هكذا موضوع ...
اخيkachwahed يكنك عمل Optimization للكود ...
اخيkachwahed يكنك عمل Optimization للكود ...
06-01-2010, 08:36 PM
إقتباس :يمكن استعماله في حفظ البرنامج بأخر شكل بعد التغييرات عليه
مشآركة جميلة اخي الكريم,
قمت بتحميل المثآل وتجربته,
هذه الطريقة منظّمة اكثر + لن نوآجه مشآكل مع اي معلومات سنقوم بحفظها او لا,,
طريقة تنظيم الكود = وقت اكثر, لكن نتيجة افضل, وكل شئ حسب الحآلة طبعاً,
بالتوفيق اخي الكريم