delphi 写入文本 对齐

在Delphi中，如果你想要将文本写入文件并对齐，你可以使用`TFileStream`或`TFolder`等流类配合字符串操作来实现。以下是一个简单的示例，说明如何写入文本并指定对齐方式：

uses
  System.IOUtils,
  SysUtils; // 引入System.IOUtils单元，它包含了文件操作相关的函数

function AlignWriteToFile(const FileName: string; const Text: string; Alignment: Integer): Boolean;
var
  FileStream: TFileStream;
begin
  Result := True;

  try
    FileStream := TFileStream.Create(FileName, fmCreate or fmOpenWrite or fmShareDenyNone);
    if FileStream <> nil then
    begin
      // 根据Alignment设置对齐方式，比如0表示左对齐，1表示居中，2表示右对齐
      case Alignment of
        0: FileStream.WriteText(Text.PadLeft(StreamSize(Text), #); // 左对齐，不足补空格
        1: FileStream.WriteText(CenterText(Text, StreamSize(Text))); // 居中，中间填充空格直到达到行宽
        2: FileStream.WriteText(Text.PadRight(StreamSize(Text), #)); // 右对齐，不足部分补空格
      end;
      
      // 如果需要换行，则每次写完一行后，追加'\n'
      if Pos('\n', Text) > 0 then
      begin
        FileStream.Seek(0, soFromEnd); // 重置到文件尾部
        FileStream.Write(#13#10); // 写入换行符
      end;
      
      FileStream.Free;
    end else
      Result := False;
  except
    on E: Exception do
      ShowMessage('写入文件失败: ' + E.Message);
      Result := False;
  end;
end;

// 使用示例
var
  TextToWrite: string;
begin
  TextToWrite := '这是要写入的文本';
  AlignWriteToFile('example.txt', TextToWrite, 1); // 居中对齐