[Konsolenanwendung] Fortschrittsanzeige

[Furtbichler]

Delphi-Quellcode:

Const
  ProgressbarWidth = 60;

begin
  for i :=1  to maxCount do begin
     progess := muldiv(progressBarWidth,i,maxCount);
     write (#13,'['+StringOfChar(progress,'*')+StringOfChar(progressBarWidth-Progress,'-')+']';
  end
end;

Endlose Möglichkeiten.

Sehr beliebt auch :

Delphi-Quellcode:

Const
  Spin  = '|/-\';

begin
  for i :=1  to maxCount do begin
     percent := muldiv(100,i,maxCount);
     write (#13, spin[i mod length(Spin) + 1],' ',percent+' % done.); 
  end
end;

Der Phantasie sind keine Grenzen gesetzt.

Weiß nich, ob das überhaupt funktioniert. Will sagen: Getippt und nicht getestet.

Wichtig ist der "Trick" mit dem #13 (Carriage return = Wagenrücklauf).