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).