DELPHI7加载UNICODE编码格式的TXT显示为乱码的解决方法

在 Delphi7 中读取并显示 Unicode 编码格式的 TXT 文件，可能会出现乱码的情况。这是因为 Delphi7 默认使用 ANSI 编码来读取文件，而不支持 Unicode 编码。

要解决这个问题，可以使用 TFileStream 和 TStreamReader 来读取文件，并手动指定编码为 Unicode。示例代码如下：

var
  FileStream: TFileStream;
  StreamReader: TStreamReader;
  Text: string;
begin
  FileStream := TFileStream.Create('path/to/your/txt/file.txt', fmOpenRead);
  try
    StreamReader := TStreamReader.Create(FileStream, TEncoding.Unicode);
    try
      Text := StreamReader.ReadToEnd;
    finally
      StreamReader.Free;
    end;
  finally
    FileStream.Free;
  end;

  // 将读取的文本显示在 Memo 控件中
  Memo1.Lines.Text := Text;
end;

上面的代码中，我们使用 TEncoding.Unicode 来指定编码为 Unicode。如果您的 TXT 文件编码不是 Unicode，可以根据实际情况选择其他编码，如 TEncoding.UTF8 或 TEncoding.ANSI 等。

另外，如果您需要将 Unicode 编码的文本保存到文件中，也可以使用 TFileStream 和 TStreamWriter，并手动指定编码为 Unicode。示例代码如下：

var
  FileStream: TFileStream;
  StreamWriter: TStreamWriter;
  Text: string;
begin
  Text := '你好，世界！';

  FileStream := TFileStream.Create('path/to/your/txt/file.txt', fmCreate);
  try
    StreamWriter := TStreamWriter.Create(FileStream, TEncoding.Unicode);
    try
      StreamWriter.Write(Text);
    finally
      StreamWriter.Free;
    end;
  finally
    FileStream.Free;
  end;
end;

这里我们同样使用 TEncoding.Unicode 来指定编码为 Unicode，以确保保存的文本编码正确。