delphi7 ReadString从文件中获取中文

在Delphi 7中，`ReadString`函数主要用于读取文本数据，通常用于ASCII字符。如果你需要从文件中读取包含中文的Unicode字符串，你应该使用更为适合处理多字节字符集的函数，如`TFileStream.ReadString`配合`AnsiToWideChar`或`UTF8ToString`。

首先，你需要创建一个`TFileStream`实例来打开文件，并指定适当的模式（如`fmOpenRead`）。然后你可以这样做：

uses Unicode;

var
  FileStream: TFileStream;
  Buffer: WideString;
begin
  FileStream := TFileStream.Create('your_file.txt', fmOpenRead);
  try
    // 如果文件编码是UTF-8，可以先读取原始数据
    if FileStream.AtEnd then
      Exit; // 文件可能是空的
    SetLength(Buffer, FileStream.Size div SizeOf(Char)); // UTF-8每四个字节表示一个字符
    FileStream.Read(Buffer[1], FileStream.Size);

    // 然后将缓冲区转换为宽字符
    Buffer := AnsiToWideChar(Encoding_UTF8, Buffer);
    
    // 此时Buffer就是包含了UTF-16编码的中文字符串
    Writeln(Buffer);
  finally
    FileStream.Free;
  end;
end;