パスカル進捗状況

Question

フリーパスカルの進捗状況をエミュレートしようとしていますが、ロードの進行状況に似た出力を得るのが難しいです。

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

しかし、出力は次のように判明： 私はこのために持っているコードがある

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

私はしたい：私は、それは次のようになりたい

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

ループ内で変化するパーセント変数。私は削除と挿入の手順を見てきましたが、私はそれが私が探しているものだとは思わない。

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.