我试图在Delphi控制台应用程序中创建一个微调/等待光标.我可以做到,但我确信代码可以大大简化/改进.请原谅可怜的代码：
Procedure PositionXY( x,y : Integer);
var
hStdOut: HWND;
ScreenBufInfo: TConsoleScreenBufferInfo;
Coord1: TCoord;
z: Integer;
Begin
sleep(100);
hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleScreenBufferInfo(hStdOut,ScreenBufInfo);
Coord1.X := x;
Coord1.Y := y;
SetConsoleCursorPosition(hStdOut,Coord1);
End;
begin
while True do begin
Write('|');
PositionXY(0,0);
Write('/');
PositionXY(0,0);
Write('-');
PositionXY(0,0);
Write('\');
PositionXY(0,0);
end;
ReadLn;
end.
提前致谢
保罗
解决方法
这可能会指导您进行一些优化：
Write('|'#8); Sleep(100);
Write('/'#8); Sleep(100);
Write('-'#8); Sleep(100);
Write('\'#8); Sleep(100);
提示：#8是BackSpace.