delphi 数据写入txt 且对齐

在Delphi中，将数据写入TXT文件并进行对齐可以通过使用格式化字符串来实现。以下是一个简单的示例代码，展示了如何将数据写入TXT文件并进行对齐：

procedure WriteDataToTextFile(const FileName: string; const Data: TStringList);
var
  i: Integer;
  Line: string;
begin
  with TStringList.Create do
  try
    // 假设Data中每一行包含三个字段，分别表示姓名、年龄和城市
    for i := 0 to Data.Count - 1 do
    begin
      // 使用格式化字符串进行对齐
      Line := Format('%-20s %-5d %-20s', [
        ExtractWord(1, Data[i], ['|']),
        StrToInt(ExtractWord(2, Data[i], ['|'])),
        ExtractWord(3, Data[i], ['|'])
      ]);
      Add(Line);
    end;
    SaveToFile(FileName);
  finally
    Free;
  end;
end;

在这个示例中，`Data`是一个包含数据的`TStringList`，每一行数据包含三个字段，分别表示姓名、年龄和城市。字段之间使用竖线（`|`）分隔。`ExtractWord`函数用于提取每个字段，`StrToInt`用于将年龄字段转换为整数。

格式化字符串`%-20s`表示左对齐，占据20个字符的位置，`%-5d`表示左对齐，占据5个字符的位置。

使用示例：

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TStringList;
begin
  Data := TStringList.Create;
  try
    Data.Add('John Doe|30|New York');
    Data.Add('Jane Smith|25|Los Angeles');
    Data.Add('Mike Johnson|40|Chicago');
    
    WriteDataToTextFile('output.txt', Data);
  finally
    Data.Free;
  end;
end;

这个示例将生成一个名为`output.txt`的文件，内容如下：

John Doe             30    New York            
Jane Smith           25    Los Angeles        
Mike Johnson         40    Chicago