Pascal进展状况

Question

我试图在free pascal中模拟进度加载状态，但我很难尝试实现看起来像加载进度状态的输出。 我的代码是：

percent := 0;
Writeln('Loading');   
Repeat
 Write('(',percent,'%)');
 percent = percent + 1;
 Delay(50);
Until percent > 100;

但输出结果如下：

Loading(0%)(1%)(2%)

当我希望它看起来像这样：

Loading(0%) -> Loading(1%) {The percent variable going up like a loading status}

我只希望百分比变量在循环中改变。我已经查看了删除和插入程序，但我不认为这是我正在寻找的。

Answer 1

您需要使用退格键返回并写入。像这样：

uses Crt;
var percent: integer;
begin
  percent := 0;
  Write('Loading ');
  Repeat
   Write('(',percent:3,'%)'#8#8#8#8#8#8);
   percent := percent + 1;
   Delay(50);
  Until percent > 100;
end.