كيف يمكن حفظ إعدادات ؟

[mohfa]

السلام عليكم .

اخي هناك ملاحظة اهم من كل هذا .

انظر الكود المكتوب في برنامجك :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
with tinifile.create('..\ini\star.ini')do   begin
writebool('Checkbox','CheckboxValue',checkbox1.Checked);
writestring('Edit','EditValue',edit1.Text);
writestring('Memo','MemoValue',memo1.Text);  
writestring('img','imgValue',OpenPictureDialog1.FileName);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with tinifile.create('..\ini\star.ini')do   begin
checkbox1.Checked:=readbool('Checkbox','CheckboxValue',false);
edit1.Text:=readstring('Edit','EditValue',edit1.Text);
Memo1.text:=readstring('Memo','MemoValue',memo1.Text);
img:=readstring('img','imgValue',img);
end;
 image1.Picture.LoadFromFile(img);
end; 


لماذا لاتحرر tinifile من الذاكرة ؟؟؟؟

هناك
Try
.
.
.
Finally
Free

***
للتعامل مع ال Memo او اي مكون فيه ال TStrings إذا إطلغت على ملف الHelp للدلفي فيما يخص ال IniFiles هناك :

ReadSection();
ReadSections();
ReadSectionValues();


فيما يخص الالوان هناك :

StringToColor و ColorToString في وحدة ال Graphics يمكنك ان تستفيد منهما .