file - 如何在 Delphi 中创建文本文件

Question

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

标签： filedelphicreatefile

Answer 1

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

使用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;