Нужно сохранить информацию в программе

[Alex_09]

В программе есть Эдит 1 При запуске пр. вносим туда какойто текст.Закрываем при след запуски в эдите текста уже нет.Подскажите как написать код чтоб информация сохранялась при закрытии и отобр. при следуещем запуске? Заранее благодарен.

[albatros]

запиши в реестр

[zotox]

запиши в реестр

аналогично того же мнения
кури мануалы про реестр если новичек

[Alex_09]

А как это делается? Плиз если несложно

[DomiNick]

Думаю, лучше в INI-файл сохранять...

[maladoy]

сохранение в реестр и ini-файл

[DeKot]

А почему не просто, при закрытии приложения - Edit пишем в файл?

procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
  Form1.Edit1.Text.LoadToFile('NameFile.txt');
  Form1.Close;
end;

Ну и при открытии приложения (программы) считываем с файла то что записали.

[DomiNick]

DeKot, а если у него этих Edit'ов много? Тогда из INI-файла, полагаю, будет удобнее брать...

[Stilet]

DeKot

Сам о пробовал что написал? В какой Делфе это прокатывает?

[uberchel]

Alex_09 !

Держи код:

//Не забудь добавить глобальную переменную !
var 
List: TStringlist;

.....

//Загрузка из файла
procedure TForm1.FormActivate(Sender: TObject);
begin
list:= TStringlist.Create;
if FileExists('name.txt')then begin
List.LoadFromFile('name.txt');
edit1.Text:= List.text; end else begin
MessageBox(handle,('Файл не найден!'+#13#10+
'Будет создан новый файл программы '),('Предупреждение '),32);
end; List.SaveToFile('name.txt');
List.Free; end;

//Сохранение в файл
procedure TForm1.FormDestroy(Sender: TObject);
begin
List:= TStringlist.Create;
With List do begin
text:= edit1.Text;
SaveToFile('name.txt');
Free; end; end;