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

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


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

最佳答案

也许像这样(我假设您实际上正在使用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;

关于delphi - 在Page的中间显示一个字-Pascal,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/8026199/

10-09 07:39