Kopieren mit TProgressbar Ausserhalb des gültigen bereiches

[Sir Rufo]

Zitat von Union:

Ich meine es müsste in dem Callback heissen:

Delphi-Quellcode:

Form1.ProgressBar1.Max := 100;
Form1.ProgressBar1.Position := Position div Size * 100;

Das kann so leider nicht funktionieren, denn es wird erst Position div Size berechnet (da kommt immer 0 heraus, Ausnahme Position = Size, dann 1) und das mit 100 multipliziert.

Jetzt sollte auch klar werden, warum die Progressbar-Anzeige so springt

So wird dann auch richtig gerechnet:

Delphi-Quellcode:

Form1.ProgressBar1.Max := 100;
Form1.ProgressBar1.Position := ( 100 * Position ) div Size;

[DeddyH]

Delphi-Quellcode:

if Assigned(Callback) then
  Callback(0, SizeFile);

Sollte das Ganze stabiler machen, und man muss nicht zwingend einen Callback mitgeben.

Zitat:

Form1.ProgressBar1.Position := ( 100 * Position ) div Size;

Noch' n Vorschlag:
Form1.ProgressBar1.Position := MulDiv(Position, 100, Size);