Как считать с txt?

[GaNDyPaC]

Здраствуйте!У меня на форме есть два TEdit'a как сделать чтоб,при нажатии на кнопку создавался txt докумен и сохранял имя и ник.И как потом в другой форме (Forme3) вывести этот текст(аттач).Заранее спасибо!

[ViktorXP]

iniFile
http://forum.vingrad.ru/articles/topic-197956.html

[goblinyara]

хмм.. если ник и имя будут только в единственном экземпляре, то можно сделать так:

var 
  f: TextFile;    
.....
procedure TForm1.Button1Click(Sender: TObject);
begin
   //Здесь идёт запись в файл
   AssignFile(f,'C:\my.txt');
   rewrite(f);
   WriteLn(f,name);
   WriteLn(f,nick);
   CloseFile(f);
end;
...
//когда надо считать - делайте так:
AssignFile(f,'C:\my.txt');
Reset(f);
ReadLn(f,name);
ReadLn(f,nick);
Close(f);

[QunneD]

Вот возьми пример

[xakkkkker]

если еще не разобрался пиши 433668986

[xakkkkker]

если еще не разобрался пиши 433668986

[GaNDyPaC]

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

Вот возьми пример

А можно поподробней объяснить код.Заранее спасибо!

[Ozerich]

ну так тебе ведь дали ссылку http://forum.vingrad.ru/articles/topic-197956.html
о работе с INI файлами.
Читай...

[goblinyara]

комменты к коду QunneD:

// в файле Unit1.pas
procedure TForm1.Button1Click(Sender: TObject);
var
  f : TIniFile;
begin
  //Создаётся (или открывается, если уж есуществует) файл текстовый, в папке с программой, название файла - config.ini
  f := TIniFile.Create(ExtractFilePath(paramstr(0))+'config.ini');
  //Запись значения "name" в файл config.ini в секцию "values"
  f.WriteString('values','name',Edit1.Text);
  //Запись значения "nick" в файл config.ini в секцию "values"
  f.WriteString('values','nick',Edit2.Text);
  //Закрытие файла config.ini.  ОБЯЗАТЕЛЬНО!!!
  f.Free;
  MessageBox(0, 'Данные сохранены!', 'Окно', 0);
end;
......
//в файле Unit2.pas
procedure TForm2.Button1Click(Sender: TObject);
var
  a : TIniFile;
begin
  // Аналогично как и в предыдущем отрывке
  a := TIniFile.Create(ExtractFilePath(paramstr(0))+'config.ini');
  //Здесь компоненту Label1 присваивается значение, прочитанное из config.ini функцией ReadString.
  Label1.Caption := 'Имя: '+a.ReadString('values','name','');
  //Аналогично
  Label2.Caption := 'Ник: '+a.ReadString('values','nick','');
  //Опять не забываем закрыть файл
  a.Free;
end;

да, чуть не забыл, в каждом юните, использующем IniFiles, в uses добавляем IniFiles.

[spamer]

А смысл хранить НИК и ИМЯ в тхт файле, если можно в Реестре - что бы посторонние не интересовались что там.