delphi - 在Page的中间显示一个字-Pascal

Question

我有一个非常简单的问题。看一下我用Pascal编写的代码：

Program Example;
Begin
Writeln('Question');
Readln;
End.

我想在页面中间显示“问题”一词，该怎么做？

Answer 1

也许像这样（我假设您实际上正在使用Delphi或兼容的东西）：

var
  csbi: TConsoleScreenBufferInfo;
  crd: TCoord;
  h: THandle;

const
  S = 'Hello World!';

begin
  h := GetStdHandle(STD_OUTPUT_HANDLE);
  GetConsoleScreenBufferInfo(h, csbi);
  crd.Y := csbi.dwSize.Y div 2;
  crd.X := (csbi.dwSize.X - length(S)) div 2;
  SetConsoleCursorPosition(h, crd);
  Write(S);
  Readln;