我有一个非常简单的问题。看一下我用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/