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

[SW00001]

Да я и не просил сделать за меня) я надеялся что хотя бы покажут примерный код, а дальше я уже сам всё сделаю.
И за эту наводку спасибо)

[Serge_Bliznykov]

SW00001, если речь идёт о диалогах, где пользователь может задать какой файл читать или в какой писать, то это делается так.
1. кидайте на форму два контрола TOpenDialog (для выбора файла для чтения) и TSaveDialog (для выбора файла, куда будет сохранятся).

на событии открытия файла пишете что-то вроде

  // Запускаем диалог выбора файла для чтения
  if  OpenDialog1.Execute
    then
      begin
          // тут осуществляете чтение из файла с именем  OpenDialog1.FileName;
      end;

на событии сохранения файла пишете что-то вроде

  // Запускаем диалог выбора файла для сохранения
  if SaveDialog1.Execute
    then
      begin
        // тут осуществляете запись в файл с именем SaveDialog1.FileName;
      end;

а вообще, учитесь читать справку. Ведь имена компонентов Вам подсказали - осталось выбрать их, нажать F1 и прочитать...

[evg_m]

я надеялся что хотя бы покажут примерный код

примерный код по этому (и тысяче других вопросов которые возникнут) есть как раз в книгах. На 50-70% (и более) книги состоят из такого вот "примерного" кода на многие случаи жизни начинающего (да и не только) программиста.
вторым источником "примерного" кода есть справка (F1 Examples)
следующий источник "Program Files\Borland\Delphi7\Demos"
и еще один источник google Seach/форум поиск FileSaveDialog

[SW00001]

Спасибо за подсказки...решил проблему

procedure TForm1.Button33Click(Sender: TObject);
var
ini: TIniFile;
begin
if SaveDialog1.Execute=True then
ini:=TIniFile.Create(SaveDialog1.Fi leName + '.ini');
ini.writestring('edit1','Text',edit 1.Text );
end;

А если много Эдитов то мне все придётся прописывать вот так ini.writestring('edit1','Text',edit 1.Text ); ? или можно как нибуть упростить, а то их у меня около 700 штук...

[VIK_aka_TOR]

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

Спасибо за подсказки...решил проблему

А если много Эдитов то мне все придётся прописывать вот так ini.writestring('edit1','Text',edit 1.Text ); ? или можно как нибуть упростить, а то их у меня около 700 штук...

примерно так

for i:=0 to Form1.ComponentCount-1 do 
  if Components[i].ClassNameIs('TEdit') then
    // действия

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

[3D Hunter]

ТС,вы в порядке?700 контролов...сколько времени вам понадобилось,чтобы расставить их на форме?чтобы не писать 700 строчек кода,в цикле используйте функцию findcomponent().

[SW00001]

Да я их уже раставил и прописал коды расчёта по формулам к ним...
Это не моя задумка, на практике задали, а я вот мучаюсь...
Теперь возникла проблема с изьятием данных из ini файла

procedure TForm1.Button33Click(Sender: TObject);
var
ini: TIniFile;
begin
if OpenDialog1.Execute then
Begin
  edit1.Text:=ini.ReadString('edit1','text',edit1.Text);
  ShowMessage('Ôàéë óñïåøíî çàãðóæåí')
End
Else
   ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
end;

ошибка
[Warning] Unit1.pas(3319): Variable 'ini' might not have been initialized


Для оформления кода используйте теги [ CODE] [/CODE] (кнопочка # на панели форматирования сообщения)
Модератор

[Serge_Bliznykov]

ну и в чём, собственно, проблема?!

Ага. Точно. Вижу. Это же Ваша ошибка!
А кто будет создавать объект ini ???!!
перед использованием ini должно где-то быть:

 ini := TIniFile.Create(OpenDialog1.FileName);
  теперь можно обращаться к ini

и в конце не забудьте освободить память и файл:

  ini.Free;

изучаете Delphi без чтения книжек - методом "тыка"?! ну-ну.. удачи...

[SW00001]

Он не хочет читать данные и вписывать их обратно
http://s020.radikal.ru/i714/1302/d1/e0e644f3ae8b.jpg выдаёт вот эту ошибку
http://i065.radikal.ru/1302/f3/45935e33c5c2.jpg и вот эту

[VIK_aka_TOR]

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

Да я их уже раставил и прописал коды расчёта по формулам к ним...
Это не моя задумка, на практике задали, а я вот мучаюсь...
Теперь возникла проблема с изьятием данных из ini файла

procedure TForm1.Button33Click(Sender: TObject);
var
ini: TIniFile;
begin
if OpenDialog1.Execute then
Begin
  edit1.Text:=ini.ReadString('edit1','text',edit1.Text);
  ShowMessage('Ôàéë óñïåøíî çàãðóæåí')
End
Else
   ShowMessage('Çàãðóçêà ôàéëà îòìåíåíà ïîëüçîâàòåëåì');
end;

ошибка
[Warning] Unit1.pas(3319): Variable 'ini' might not have been initialized


Для оформления кода используйте теги [ CODE] [/CODE] (кнопочка # на панели форматирования сообщения)
Модератор

клик
файл вы создали, название у него есть?...

 ini := TIniFile.Create('Ini.ini');