[Konsolenanwendung] Fortschrittsanzeige

[Back2Code]

Hey Leute, ich habe eine etwas größere Schleife die Daten an einen MySQL Server überträgt. Wie würdet ihr am besten den aktuellen Fortschritt anzeigen lassen?

Im Moment hab ichs per WriteLn(Aktuelle Line / von alle Lines) Sieht aber irgendwie noch nicht so toll aus. Freu mich über Vorschläge

[p80286]

Delphi-Quellcode:

repeat / while...
...
  if LineNo and $0F = 0 then
    write(inttostr(LineNo)+' of '+maxlines+#13);
...
until...
writeln(inttostr(LineNo)+' of '+maxlines);

Gruß
K-H

[Back2Code]

Delphi-Quellcode:

          iProcent := i * 100 div TransNodes.Count;
          WriteLn(IntToStr(iProcent) + '% Finished');

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

[Back2Code]

@Furtbichler

Musste dein Sample gering anpassen gefällt mir jedenfalls sehr viel besser als die 1000 Angabe in Prozent von mir da oben

Delphi-Quellcode:

          iProcent := muldiv(100,i,TransNodes.Count);
          write (#13, spin[i mod length(Spin) + 1],' ',IntToStr(iProcent)+' % done.');