如何在 Delphi 中创建一个简单的文本文件？

最常见的选项，通过TStringList：

procedure MakeTextFile;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add('123456');
    sl.Add('777');
    sl.SaveToFile('D:\folder\1.txt');
  finally
    sl.Free
  end;
end;

此外，您可以使用TFile（来自模块IOUtils）：

fn := 'D:\folder\1.txt';

// Вариант 1 - указываем все содержимое сразу в виде массива
TFile.WriteAllLines(fn, ['123456', '777']);

// Вариант 2 - указываем все содержимое сразу одной строкой
TFile.WriteAllText(fn, '123456' + sLineBreak + '777');

// Вариант 3 - добавляем содержимое по частям
TFile.WriteAllText(fn, '123456');
TFile.AppendAllText(fn, sLineBreak);
TFile.AppendAllText(fn, '777');

以旧的方式尽可能简单

procedure DoItClassic;
var 
  F: TextFile;
begin
  AssignFile (F, 'D:\folder\1.txt');
  ReWrite (F);
  writeln (F, '12345');
  CloseFile (F);
end;