delphi7 ReadString获取中文

Delphi 7 中，`ReadString` 函数主要用于从标准输入流（如键盘输入）读取字符串。默认情况下，它可能会遇到处理非ASCII字符的问题，包括中文字符。对于 Delphi 7 的 Unicode 支持，你可以通过以下步骤来改进 `ReadString` 的中文输入：

1. 确保你的程序设置为 Unicode 编程模式。打开工程属性（Project | Options...），在“Environment”选项卡下选择“Use Unicode”或将其设置为“True”。

2. 使用 `TInputText` 类的 `GetLine` 或 `GetEof` 方法代替 `ReadString`，因为它们更适用于文本输入。例如：

var
  InputBuffer: WideString;
begin
  if not TInputText(Input).GetLine(InputBuffer) then
    ShowMessage('输入结束');
end;

这里，`WideString` 是用于存储 Unicode 字符串的数据类型。

3. 如果需要从控制台读取，可以考虑使用 `Console.In` 的 `ReadLine` 方法，并结合适当的编码转换，比如 `System.SysUtils.AnsiToUnicode` 和 `System.SysUtils.UnicodeToAnsi`，但这通常会比较复杂。

需要注意的是，如果你直接从命令行（cmd）获取中文输入，可能还需要对用户的环境做一些额外的配置，比如设置正确的locale，以便正确显示和输入中文。