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.

Pascal 进度状态

Pascal Progress Status

freepascal