Как можно сохранить данные в txt файл и вернуть их в исходные месте

[SW00001]

Файл был создан, данные в нём есть.
Сейчас попробую то что предложили

[VIK_aka_TOR]

Сообщение от SW00001

Файл был создан, данные в нём есть.
Сейчас попробую то что предложили

в своем участке кода вы не указываете откуда читать...
и не забудьте как указывали выше после освободить память от ini :

 ini.Free;

[SW00001]

Спасибо за помощь всё работает)

[SW00001]

Нестал создавать ещё 1 тему, спрошу тут.
Как прописать код так чтобы мне непришлось вписывать все Edit-ы в ручную? есть примерный код, но почемуто ругается на

procedure TForm1.BitBtn2Click(Sender: TObject);
var
ini: TIniFile;
i: integer;
edit: TIniFile;
begin
if SaveDialog1.Execute=True then
Begin
 for i:=0 to Form1.ComponentCount-1 do
      if Components[i].ClassNameIs('TEdit') then
        begin
         Edit:=Components[i];
         ini.writestring(Components[i].Name,'Text', edit.Text );
        end;
 ShowMessage('Ôàéë óñïåøíî çàãðóæåí');
End
Else
ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
ini.Free;
end;

Код ошибок
[Error] Unit1.pas(3286): Incompatible types: 'TIniFile' and 'TComponent'
[Error] Unit1.pas(3287): Undeclared identifier: 'Text'

Как это можно исправить?

[VIK_aka_TOR]

 Edit:=Components[i];
 ini.writestring(Components[i].Name,'Text', edit.Text );

на

    ini.writestring((Components[i] as TEdit).Name ,'Text', (Components[i] as TEdit).Text );

и обходимость создавать Edit отпадет... наверное...

да и Edit я тебе писал создовать TEdit а не как ини файл...

[superedward]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
ini: TIniFile;
i: integer;
edit: TEdit;
begin
ini:=TIniFile.Create('bla-bla.ini');
if SaveDialog1.Execute=True then
Begin
 for i:=0 to Form1.ComponentCount-1 do
      if Components[i].ClassNameIs('TEdit') then
        begin
         Edit:=Components[i] as TEdit;
         ini.writestring(Components[i].Name,'Text', edit.Text );
        end;
 ShowMessage('Ôàéë óñïåøíî çàãðóæåí');
End
Else
ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
ini.Free;
end;

[phomm]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
ini: TIniFile;
i: integer;
begin
ini:=TIniFile.Create('text.ini');
if SaveDialog1.Execute then
Begin
 for i:=0 to Form1.ComponentCount-1 do
      if Components[i] is TEdit then
         ini.writestring(Components[i].Name,'Text', (Components[i] as TEdit).Text );
 ShowMessage('Ôàéë óñïåøíî çàãðóæåí');
End
Else
ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
ini.Free;
end;

Книжицы бы хоть почитали.

Ну, а эпичная форма из 700 эдитов вместо одного нормального StringGrid'a это конечно сила.



ПС. 15:08 ТРИПЛХЭДШОТ !!!!!1111

[Serge_Bliznykov]

попробуйте так:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
ini: TIniFile;
i: integer;
begin
if SaveDialog1.Execute then
Begin
  for i:=0 to Form1.ComponentCount-1 do
      if Components[i].ClassNameIs('TEdit') then
         ini.writestring(TEdit(Components[i]).Name,'Text', TEdit(Components[i]).Text );
  ShowMessage('Ôàéë óñïåøíî çàãðóæåí');
End
Else
  ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
ini.Free;
end;

ААА!! Опоздал я на две минуты с ответом...

[SW00001]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
ini: TIniFile;
i: integer;
edit: TEdit;
begin
if SaveDialog1.Execute=True then
Begin
ini:=TiniFile.Create(SaveDialog1.FileName + '1.ini');
 for i:=0 to Form1.ComponentCount-1 do
      if Components[i] is TEdit then
        ini.WriteString(Components[i].Name,'Text', (Components[i] as TEdit).Text);
 ShowMessage('Ôàéë óñïåøíî çàãðóæåí');
End
Else
ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
ini.Free;
end;

Исправил немного ваш код. И всё работает, теперь бы всё это обратно вывести в надлежащим виде

[SW00001]

Сообщение от phomm

procedure TForm1.BitBtn2Click(Sender: TObject);
var
ini: TIniFile;
i: integer;
begin
ini:=TIniFile.Create('text.ini');
if SaveDialog1.Execute then
Begin
 for i:=0 to Form1.ComponentCount-1 do
      if Components[i] is TEdit then
         ini.writestring(Components[i].Name,'Text', (Components[i] as TEdit).Text );
 ShowMessage('Ôàéë óñïåøíî çàãðóæåí');
End
Else
ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
ini.Free;
end;

Книжицы бы хоть почитали.

Ну, а эпичная форма из 700 эдитов вместо одного нормального StringGrid'a это конечно сила.



ПС. 15:08 ТРИПЛХЭДШОТ !!!!!1111

Была необходимость в этих эдитах)) там чтото типо таблицы 25 на 30+ эдиты для фамилий и предметов)) ЧТобы туда вводить и по ним уже всё расчитывать...