Prozentrechnung geht nicht bei grossen Zahlen!?

[SirTwist]

1. Wieso definierst du "status" als Floatingpoint-Variable, wenn Du dann mit "div" arbeitest statt mit "/"?
2. Warum benutzt Du "status" nicht auch gleich, um den Progressbar anzuzeigen?
3. wenn Du deinen Sourcecode übersichtlicher formatierst, hilfst Du Dir und uns
=> Leerzeichen, Einrücken, Gleichheitszeichen untereinander ausrichten, ...
4. Der Progressbar zeigt doch eh schon eine Prozentzahl an, oder? Dann könntest Du Dir das Progresslabel eigentlich sparen und direkt mit Progessbar.Position := Round(fdest / fsource * 100) arbeiten

Delphi-Quellcode:

var
  fsource, fdest: Cardinal;
  status:         real;
begin

  with Form1.Progressbar1 do begin
    Min := 0; Max := 100;
  end;

  repeat
    fdest   := filesize(dest) div 10;
    fsource := filesize(source) div 10;
    status  := fdest / fsource * 100;

    form1.progreslabel.caption  := Format('%3f %%', [status])
    Form1.progressbar1.Position := Round(status);
  ...