Компонент Edit

[dpmkh]

Привет!
Есть одна проблема которую я не знаю как делать.
В общем есть форма, на которой 2 кнопки "сохранить" и " загрузить" и 2 компонента Edit.

Нада, что бы кнопка "сохранить" сохраняла значения которые введены в едитах в файл на компьютере. А при нажатии кнопки "загрузить" можно было загрузить файл со значениями едитов, которые были сохранены в файл.

Спасибо заранее!

[Stilet]

Ини файлы тебе помогут.

with TIniFile.Create(имя файла) do begin
 for i:=0 to ControlsCount-1 do begin
  if Control[i] is TEdit then WriteString('Edits',TEdit(Control[i]).name,TEdit(Control[i]).Text;
 end;
 Free;
end;

И загрузка:

with TIniFile.Create(имя файла) do begin
 for i:=0 to ControlsCount-1 do begin
  if Control[i] is TEdit then 
   TEdit(Control[i]).Text:=ReadString('Edits',TEdit(Control[i]).name,'');
 end;
 Free;
end;

uses iniFiles нужен.

[VVkSoft]

или можно так:
Пишем:

var
 OutFl: TextFile;
 FilePath: TFileNAme;
 I: integer;
begin
try
  AssignFile(OutFl,FilePath);
  Rewrite(OutFile);
  for i:=0 to ControlsCount-1 do
  begin
    if Control[i] is TEdit then
    begin
      Writeln(OutFl,TEdit(Control[i]).Text);
    end;
  end;
  ClosseFile(OutFile);
except
  on E: EInOutError do
  begin
    ShowMessage('Ошибка записи файлу')
  end
  else
  begin
    ShowMessage('Ошибка операции');
  end;

end;
end;

Чтения:

var
 InFl: TextFile;
 FilePath: TFileNAme;
 I: integer;
begin
try
  AssignFile(InFl,FilePath);
  Reset(InFile);
  for i:=0 to ControlsCount-1 do
  begin
    if Control[i] is TEdit then
    begin
      ReadLn(InFl,TEdit(Control[i]).Text);
    end;
  end;
  ClosseFile(InFile);
except
  on E: EInOutError do
  begin
    ShowMessage('Ошибка чтения файлу')
  end
  else
  begin
    ShowMessage('Ошибка операции');
  end;
end;
end;

try
except
end
можно не давать - код будет проще или можно дать без проверки на тип ошибки.

Здесь возможные ошибки так на делфи не прбовал бо писал с телефона

То как вариант - но вариант от Stilet попроще