السلام عليكم ورحمة الله وبركاته
كيف يتم حفظ كامل البرنامج مع كافة التغيرات التي حصلت فيه ..؟
لدي كود لحظف شيء معين من البرنامج لكن انا ارغب ان يتم حفظ كامل التغيرات التي طرأت عليه..
جزاكم الله كل خير..
وفت التشغيل ام وقت البرمجة
لو وقت التشغيل اذكر التغيرات التى تريد ان تحفظها
مثلا طول وعرض ولون الفورم ممكن استخدام ملفات ini لحفظ الاعدادات واستدعائها مرة اخرى عند التشغيل
او استخدم الرجيسترى لنفس الغرض
منتظر اعرف نوع التغير الذى تود حفظه وشكرا
اخي الكريم البرنامج هو عبارة عن برنامج محادثة خادم وعميل بحيث انني ارٍيْد ان يقوم بحفظ كل التغيرات التي جرت على الخادم ليقوم بأرسالها الى العميل ولا شيء محدد ارٍيْد حفظة بل كل البرنامج والحفظ يكون في حال التشغيل وليس في حال التصميم هل فهمت قصدي اخي الكريم ؟
فهمت
استخدم ملفات ال ini واحفظ ما تشاء ثم قم بارساله الى ال Client واقراء محتوياته
اخي الكريم هذا لحفظ ماتغير على الفورم في ملف خارجي وفي حال التشغيل يعود البرنامج كما تركته في اخر شكل له
كود :
public
constructor Create(AOwner: TComponent); override; // (1)
procedure BeforeDestruction; override; // (2)
end;
var
Form1: TForm1;
PreservePath: string; // (3)
implementation
{$R *.dfm}
procedure TForm1.BeforeDestruction;
begin
inherited;
with TFileStream.Create(PreservePath + ClassName + '.sav', fmCreate) do
try
WriteComponent(Self);
finally
Free;
end;
end;
constructor TForm1.Create(AOwner: TComponent);
begin
PreservePath := ExtractFilePath(Application.ExeName) +
'Preserve';
if not DirectoryExists(PreservePath) then
CreateDir(PreservePath);
PreservePath := PreservePath + '\';
if FileExists(PreservePath + ClassName + '.sav') then
begin
CreateNew(AOwner, 0);
with TFileStream.Create(PreservePath + ClassName + '.sav',
fmOpenRead or fmShareDenyWrite) do
try
ReadComponent(Self);
finally
Free;
end;
end
else
inherited Create(AOwner);
end;