Запись данных в текстовый файл

[Jene4ka]

Добрый день!
На форме есть поля ввода, необходимо сохранять значения (числовые) и затем извлекать. Базу данных, наверное, нет смысла делать, т.к. получится одна таблица. Подскажите, пожалуйста, как это осуществить, например, с помощью записи в текстовый файл?

[Пепел Феникса]

http://programmersforum.ru/showthrea...158#post258158
гляньте

[ZvEr_HaCkEr]

Записать

procedure TForm1.Button1Click(Sender: TObject);
var
i:tinifile;
k:integer;
begin
i:=TInifile.Create(ExtractFilePath(paramstr(0))+'settings.ini');
try
for k := 0 to ComponentCount - 1 do begin
 if Components[k] is TEdit then
i.WriteString('item',TEdit(components[k]).Name,TEdit(components[k]).Text);
end;
finally
 i.Free;
end;
end;

Прочитать

procedure TForm1.Button2Click(Sender: TObject);
var
i:tinifile;
k:integer;
begin
i:=TInifile.Create(ExtractFilePath(paramstr(0))+'settings.ini');
try
for k := 0 to ComponentCount - 1 do begin
 if Components[k] is TEdit then
 TEdit(components[k]).Text:=i.ReadString('item',TEdit(components[k]).Name,TEdit(components[k]).Text);
end;
finally
 i.Free;
end;
end;

uses inifiles;

settings.ini

[item]