如何使用Delphi 将文本文件从ANSI转换为UTF-8？

要将文本文件从ANSI编码转换为UTF-8编码，您可以使用Delphi编程语言编写一个简单的程序。以下是一个示例代码，演示了如何使用Delphi实现这一转换：

program AnsiToUtf8;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

function AnsiToUtf8(const InputFile, OutputFile: string): Boolean;
var
  InputStream, OutputStream: TFileStream;
  Buffer: TBytes;
  BytesRead: Integer;
begin
  Result := False;
  InputStream := TFileStream.Create(InputFile, fmOpenRead);
  try
    OutputStream := TFileStream.Create(OutputFile, fmCreate);
    try
      SetLength(Buffer, 4096);
      repeat
        BytesRead := InputStream.Read(Buffer[0], Length(Buffer));
        if BytesRead > 0 then
        begin
          OutputStream.Write(Buffer[0], BytesRead);
        end;
      until BytesRead = 0;
      Result := True;
    finally
      OutputStream.Free;
    end;
  finally
    InputStream.Free;
  end;
end;

var
  InputFile, OutputFile: string;
begin
  if ParamCount <> 2 then
  begin
    WriteLn('Usage: AnsiToUtf8<input file><output file>');
    Exit;
  end;

  InputFile := ParamStr(1);
  OutputFile := ParamStr(2);

  if not AnsiToUtf8(InputFile, OutputFile) then
  begin
    WriteLn('Error: Failed to convert file.');
  end
  else
  begin
    WriteLn('File successfully converted.');
  end;
end.

要使用此程序，请将其保存为名为AnsiToUtf8.dpr的文件，并使用Delphi编译器（例如Delphi IDE或命令行编译器）编译它。然后，您可以通过命令行运行编译后的可执行文件，并提供输入文件和输出文件的路径作为参数。例如：