[DKV]

Ребята, как создать txt файл и одновременно добавить в него строки
Заранее спасибо

[lmikle]

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

Ребята, как создать txt файл и одновременно добавить в него строки
Заранее спасибо

Код:

var
  SL : TStringList;
begin
  SL := TStringList.Create;
  Try
    SL.Add('Строка 1');
    SL.Add('Строка 2');
    SL.SaveToFile('c:\myfile.txt');
  Finally
    SL.Free;
  End;

[DKV]

Пасип! буду знать

[Karsh]

можно и так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  myFile: TextFile;
begin
  AssignFile(myFile, 'myfile.txt');
  Rewrite(myFile);
  try
    Writeln(myFile, 'Строка 1');
    Writeln(myFile, 'Строка 2');
  finally
    CloseFile(myFile);
  end;
end;

[DKV]

А в чём отличие?

[lmikle]

Отличие - в использованных методах.
Я использовал готовый класс, предоставляющий некоторый сервис, кроме продемонстрированого. Кроме того, в случае испоьзования такого класса можно разнести заполнение и собственно выгрузку. Karsh использовал файловые операции просто для формирования файла.