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

[Serge_Bliznykov]

Была необходимость в этих эдитах)) там чтото типо таблицы 25 на 30+

откройте для себя компонент TStringGrid

[SW00001]

Долго мучался но так и не смог сделать вторую кнопку...постоянно либо ошибка либо не грузит вообще
Как загрузить обратно данные из файла?

[phomm]

Одним из ответов на Ваш вопрос будет http://citforum.ru/howto/smart-questions-ru.shtml

[SW00001]

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

Одним из ответов на Ваш вопрос будет http://citforum.ru/howto/smart-questions-ru.shtml

Ну в общем мне люди помогали с кодом для сохранения из программы данных в файл ini

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;

Но из-за того что там

or i:=0 to Form1.ComponentCount-1 do
      if Components[i] is TEdit then
           ini.WriteString(Components[i].Name,'Text', (Components[i] as TEdit).Text);

я незнаю как теперь сделать кнопку чтобы все данные из ini файла вернулись на свои места в Edit-ы

[Serge_Bliznykov]

if SaveDialog1.Execute=True then

замените на

  if SaveDialog1.Execute then

это не ошибка, просто глаза режет...


А код чтения я сейчас попробую написать (если минутка свободная будет!

[SW00001]

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

замените на

  if SaveDialog1.Execute then

это не ошибка, просто глаза режет...


А код чтения я сейчас попробую написать (если минутка свободная будет!

Это я уже давно убрал) сам понял что лишние
Спасибо

[Serge_Bliznykov]

да. исправьте сразу ГРУБУЮ ошибку - то, что написано красным - удалите, то, что зелёным - впишите!:

if SaveDialog1.Execute then
Begin
 ini:=TiniFile.Create(SaveDialog1.FileName + '1.ini');
 for i:=0 to ComponentCount-1 do
      if Components[i] is TEdit then
        ini.WriteString(Components[i].Name,'Text', (Components[i] as TEdit).Text);
 ShowMessage('Файл сохранён успешно');
 ini.Free;
End
Else
ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
ini.Free;
end;

на кнопку чтения назначьте такой код:

var
  ini: TIniFile;
  i: integer;
begin

OpenDialog1.Filter := 'INI файлы (*.ini)|*.ini| Все файлы |*.*';

if OpenDialog1.Execute then
Begin
 ini:=TiniFile.Create(OpenDialog1.FileName);
 for i:=0 to ComponentCount-1 do
      if Components[i] is TEdit then
        (Components[i] as TEdit).Text := 
                ini.ReadString(Components[i].Name,'Text', 'нет данных!' );
 ini.Free;
End
End;

[SW00001]

Большое спасибо, всё работает.