delphi ReadString获取中文

Delphi中的`ReadString`函数默认是以ASCII编码读取字符串，如果想要获取中文字符，你需要确保使用了支持Unicode的编码，并且正确设置输入流的编码。

在Delphi中，你可以这样做：

1. 使用`TStream`或`TFMemStream`等流类，它们内部可以处理Unicode字符串：

   var
     Stream: TMemoryStream;
     ChineseStr: WideString; // 使用WideString来存储宽字符

   begin
     Stream := TMemoryStream.Create;
     try
       // 如果是从文件或其他源读取，先设置流的编码，如UTF-8
       Stream.SetEncoding(TEncoding.UTF8);
       
       // 然后读取字符串
       Stream.ReadBuffer(Pointer(ChineseStr)^, SizeOf(ChineseStr) * 2); // 两次是因为每个汉字占用两个字节（宽字符）
       // 检查是否成功读取，例如检查是否达到实际长度减去结束符
       if ChineseStr <> '' then
         ShowMessage('读取的中文字符串: ' + ChineseStr);
     finally
       Stream.Free;
     end;
   end;

2. 对于GUI应用程序，可以直接创建`TEdit`控件并设置其`DefaultCharSet`属性为`csUnicode`来支持中文输入：

   procedure TForm1.Button1Click(Sender: TObject);
   var
     ChineseStr: string;
   begin
     ChineseStr := Edit1.Text; // 假设Edit1已设置为csUnicode
     ShowMessage('输入的中文字符串: ' + ChineseStr);
   end;

记得在使用前确认你的程序环境是否支持Unicode以及正确配置了相关的字符集设置。