المشاركات : 240
المواضيع 16
:
: 0
الإنتساب : Dec 2008
stIniFile
يمكن استعماله في حفظ البرنامج بأخر شكل بعد التغييرات عليه
الملفات المرفقة
stIniFile.rar (الحجم : 12.63 ك ب / التحميلات : 349)
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
06-01-2010, 06:02 PM
(آخر تعديل لهذه المشاركة: 10-01-2010, 10:15 PM بواسطة 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
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
المشاركات : 240
المواضيع 16
:
: 0
الإنتساب : Dec 2008
اخي
kachwahed كان هذا العمل على السريع لما رائت كثرة الطلب على هكذا موضوع ...
اخي
kachwahed يكنك عمل Optimization للكود ...
المشاركات : 778
المواضيع 97
:
: 0
الإنتساب : Nov 2008
إقتباس : يمكن استعماله في حفظ البرنامج بأخر شكل بعد التغييرات عليه
مشآركة جميلة اخي الكريم,
قمت بتحميل المثآل وتجربته,
هذه الطريقة منظّمة اكثر + لن نوآجه مشآكل مع اي معلومات سنقوم بحفظها او لا,,
طريقة تنظيم الكود = وقت اكثر, لكن نتيجة افضل, وكل شئ حسب الحآلة طبعاً,
بالتوفيق اخي الكريم
فرّج همّ المهمومين يا الله
اللهم فك قيد اسرانا و اسرى المسلمين