如何在 Delphi 中创建文本文件

Question

我有一个程序，用户可以在其中注册我的程序，并为他们创建一个文本文件。我尝试过使用 CreateFile 函数，但不确定参数。当每个用户使用此功能或任何其他功能注册时，如何为他们创建一个文本文件？

Answer 1

也许您可以创建一个字符串列表并将其保存到文件中：

procedure MakeAStringlistAndSaveThat;
var
  MyText: TStringlist;
begin
  MyText:= TStringlist.create;
  try
    MyText.Add('line 1');
    MyText.Add('line 2');
    MyText.SaveToFile('c:\folder\filename.txt');
  finally
    MyText.Free
  end; {try}
end;

Answer 2

有多种方法可以将两行写入文本文件：

使用TFile：

fn := 'out.txt';

// method 1
TFile.WriteAllLines(fn, ['Line1','Line2']);

// method 2
TFile.WriteAllText(fn, 'Line1'+sLineBreak+'Line2');

// method 3
TFile.WriteAllText(fn, 'Line1');
TFile.AppendAllText(fn, sLineBreak);
TFile.AppendAllText(fn, 'Line2');

使用TStringList：

const fn := 'out.txt';
var sl := TStringList.Create;
try
  sl.Add('Line1');
  sl.Add('Line2');
  sl.SaveToFile(fn);
finally
  sl.Free;
end;