Как сохранить label в *.txt

[kta87]

Подскажите как сохранить то, что выводится в label в текстовом файле?

[W0LF]

var
  F: TextFile;
begin
  AssignFile(F, 'e:\text.txt');
  if FileExists('e:\text.txt') then
    Reset(F) //если файл существует, открываем для продолжения
  else Rewrite(F); //если файл НЕ существует, создаем новый
  Write(F, Label1.Caption);
  CloseFile(F);
end;

[kta87]

Подскажите еще как сделать так , что бы каждый параметр выводимый в label на новую строку в текстовом файле сохранялся тоже на новой строке? и еще , при повторном сохранении возникает ошибка! как исправить , так что бы отчет перезаписывался?

[TzX]

Чтобы писалось в новой строке замени write на writeln

[kta87]

writeln не изменил картину! все ровно в одну строку и без пробелов

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

а вы все через один writeln пишете или за несколько?

[Noor]

Я думаю лучше сделать так

var
  F: TextFile;
begin
  AssignFile(F, 'C:\text.txt');
  if FileExists('C:\text.txt') then
    Append(F) //если файл существует, открываем для продолжения
  else Rewrite(F); //если файл НЕ существует, создаем новый
  Writeln(F, Label1.Caption);
  CloseFile(F);
end;

[TzX]

Вот так точно работать будет:

Var Data: TStrings;
Begin
 Data := TStringList.Create;
 Data.LoadFromFile('C:\1.txt');
 Data.Append(Label1.Caption);
 Data.SaveToFile('C:\1.txt');
 Data.free;
End;

только файл должен существовать уже (проверку сами сделаете)