Zitat von
himitsu:
Delphi-Quellcode:
// warum war Cur als Integer und Max als Int64?
// bei Dateien über 2 GB wäre Cur wohl etwas überlastet
Dit war noch aus dem ersten Versuch, als ich Max und Position die Werte direkt zugewiesen habe und nicht über die Prozentrechnung gegangen bin... wird gefix...
Zitat von
himitsu:
Delphi-Quellcode:
// wenn eh schon Format da ist, warum nicht gleich weiternutzen ;)
Form1.Caption := Format('%d%% Speed: %3.3f Sec.', [ProgressBar1.Position, (GetTickCount - Tick) / 1000]);
end;
Wird auch noch angepasst, wobei man ja dazu sagen muss, dass das Fehler sind, die die
Unit nicht direkt betreffen.
Das Testprogramm nutze ich nachher ja nicht weiter...