在Delphi控制台中创建一个微调器

发布时间：2020-12-15 04:15:46 所属栏目：大数据来源：网络整理

导读：我试图在Delphi控制台应用程序中创建一个微调/等待光标.我可以做到,但我确信代码可以大大简化/改进.请原谅可怜的代码： Procedure PositionXY( x,y : Integer);var hStdOut: HWND; ScreenBufInfo: TConsoleScreenBufferInfo; Coord1: TCoord; z: Integer; Be

我试图在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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!