Pascal Progress Status

Question

J'essaie d'émuler un statut de chargement progressif en pascal libre mais j'ai du mal à essayer d'obtenir une sortie qui ressemble à un statut de progression de chargement. Le code je dois pour cela est:

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

Mais la sortie se révèle comme ceci:

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

Quand je veux qu'il ressemble à ceci:

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

Je veux seulement le pourcentage de variable à changer dans la boucle. J'ai examiné les procédures de suppression et d'insertion, mais je ne pense pas que ce soit ce que je cherche.

Answer 1

Vous devez utiliser le retour arrière pour revenir en arrière et écrire. Comme si:

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.