[golden94]

здравствуйте )))
помогите решить одну задачу.
на форме есть несколько edit'ов. при закрытии формы он должен сохранить все значения edit.text в ini файл. и при запуске программы загружать в те же edit'ы.
edit'ов может быть около 30 штук. если можно пример))

[Glob]

Ну можно собрать текст всех edit'ов в listbox и его уже savetofile.

[golden94]

этот вариант не подходит. Я где то видел код этот. Он сохраняет все edit в ini. И загружает при запуске, но щас найти не смог..

[v1s2222]

А просто почитать статейки про работу с ИНИ файлами не пробовали??
Хоть так:

Код:

uses IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'opt.ini');
  for i:=0 to ComponentCount-1 do
    if(Components[i].ClassType = TEdit) then
      TEdit(Components[i]).Text := ini.ReadString('Edits', Components[i].Name, '');

  ini.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'opt.ini');
  for i:=0 to ComponentCount-1 do
    if(Components[i].ClassType = TEdit) then
      ini.WriteString('Edits', Components[i].Name, TEdit(Components[i]).Text);

  ini.Free;
end;

[golden94]

спс. с попробую)))