Значит, сделал вот так:
PHP код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Sett:=tstringlist.create;
Sett.add (labeledEdit1.Text);
Sett.add (LabeledEdit2.Text);
Sett.add (labeledEdit4.Text);
Sett.add (labeledEdit5.Text);
Sett.add (labeledEdit6.Text);
Sett.add (labeledEdit7.Text);
Sett.add (labeledEdit8.Text);
Sett.add (Edit1.Text);
Sett.add (Edit2.Text);
Sett.add (Edit3.Text);
Sett.add (Edit4.Text);
Sett.add (Edit5.Text);
Sett.Add (form2.Memo1.text);
Sett.Add (form2.Memo2.text);
Sett.Add (form2.Memo3.text);
Sett.Add (form2.Memo4.text);
Sett.Add (form2.Memo5.text);
Sett.Add (form2.Memo6.text);
Sett.Add (form2.Memo7.text);
Sett.Add (form2.Memo8.text);
Sett.Add (form2.Memo9.text);
Sett.Add (form2.Memo10.text);
Sett.savetofile ('settings.txt');
Sett.free;
end;
PHP код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Sett:=tstringlist.create;
Sett.loadfromfile ('settings.txt');
LabeledEdit1.Text:=Sett[0];
labeledEdit2.Text:=Sett[1];
labeledEdit4.Text:=Sett[2];
labeledEdit5.Text:=Sett[3];
labeledEdit6.Text:=Sett[4];
labeledEdit7.Text:=Sett[5];
labeledEdit8.Text:=Sett[6];
Edit1.Text:=Sett[7];
Edit2.Text:=Sett[8];
Edit3.Text:=Sett[9];
Edit4.Text:=Sett[10];
Edit5.Text:=Sett[11];
form2.memo1.Text:=Sett[12];
form2.memo2.Text:=Sett[13];
form2.memo3.Text:=Sett[14];
form2.memo4.Text:=Sett[15];
form2.memo5.Text:=Sett[16];
form2.memo6.Text:=Sett[17];
form2.memo7.Text:=Sett[18];
form2.memo8.Text:=Sett[19];
form2.memo9.Text:=Sett[20];
form2.memo10.Text:=Sett[21];
sett.free;
Но при таком раскладе, если settings.txt пустой, То при запуске возникнет ошибка, что-то типа "Index is bounds" 0. При Повторном открытии все нормально.. Сделал вот так:
PHP код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Sett:=tstringlist.create;
try
Sett.loadfromfile ('settings.txt');
except
LabeledEdit1.Text:=Sett[0];
labeledEdit2.Text:=Sett[1];
labeledEdit4.Text:=Sett[2];
labeledEdit5.Text:=Sett[3];
labeledEdit6.Text:=Sett[4];
labeledEdit7.Text:=Sett[5];
labeledEdit8.Text:=Sett[6];
Edit1.Text:=Sett[7];
Edit2.Text:=Sett[8];
Edit3.Text:=Sett[9];
Edit4.Text:=Sett[10];
Edit5.Text:=Sett[11];
form2.memo1.Text:=Sett[12];
form2.memo2.Text:=Sett[13];
form2.memo3.Text:=Sett[14];
form2.memo4.Text:=Sett[15];
form2.memo5.Text:=Sett[16];
form2.memo6.Text:=Sett[17];
form2.memo7.Text:=Sett[18];
form2.memo8.Text:=Sett[19];
form2.memo9.Text:=Sett[20];
form2.memo10.Text:=Sett[21];
sett.free;
end;
Ошибка не возникает, программа запоминает настройки, но при открытии не открывает! Что делать!