XE7 ReadLn 命令中的 UTF8 文本问题

Question

尝试在 Delphi XE7 控制台应用程序中显示 UTF 8 文本时，我遇到了一个愚蠢但令人讨厌的情况。 似乎 ReadLn 命令在第二次尝试后才读取正确的 UTF 8 字符。例如：

    program ConsTest;

    {$APPTYPE CONSOLE}

    {$R *.res}

    uses
      System.SysUtils,
      System.Classes,
      WinApi.Windows;

    var
      CurrentCodePage: Integer;
      Command: String;
      Running: Boolean;
      MyText: String;

    begin
      CurrentCodePage := GetConsoleOutputCP;
      SetConsoleOutputCP(CP_UTF8);
      SetTextCodePage(Output, CP_UTF8);

      MyText := 'Olá mundo.';
      WriteLn(MyText);

      Running := True;
      while Running do
      begin
        ReadLn(Command);
        WriteLn(Command);
        if (Command = '/q') then
          Running := false;
      end;

      SetConsoleOutputCP(CurrentCodePage);
      SetTextCodePage(Output, CurrentCodePage);
    end.

在上面的示例中，在我运行应用程序之后，如果我输入以下文本：

'Olá mundo.'

WriteLn 将显示：

'老世界。'

在第一遍之后，ReadLn 命令读取的所有 UTF-8 字符都显示正常。 这段代码有问题吗？我试图在网上搜索更多细节，但我没有找到任何与此相关的信息。 调用“WriteLn(MyText);”在代码的开头，显示文本“Olá mundo”。正确。

Answer 1

好的，在对 Arioch 的第一条评论多加注意之后，我尝试了下面的代码，它可以在任何控制台上完美运行。

    program ConsTest;

    {$APPTYPE CONSOLE}

    {$R *.res}

    uses
      System.SysUtils,
      System.Classes,
      WinApi.Windows;

    var
      Command: String;
      Running: Boolean;
      MyText: String;

    begin
      MyText := 'Olá mundo.';
      WriteLn(MyText);

      Reset(Input); //*** That's the catch. ***

      Running := True;
      while Running do
      begin
        ReadLn(Input, Command);
        if (MyText = Command) then
          WriteLn('Yes')
        else
          WriteLn('No');

        WriteLn(Command);
        if (Command = '/q') then
          Running := false;
      end;
    end.

*OBS：上面的代码不适用于某些字母，我需要更好地了解 Unicode 和 Delphi 中的控制台模式。 由于某些巧合，它解决了我的问题，但实际上不能被视为答案。无论如何，调用“Reset(Input)”函数似乎是必要的，以确保第一次调用 ReadLn 能够正常工作。