Problem mit Prozentrechnung beim Kopieren

[Helmi]

Hallo,

ich habe folgenden Code zum Kopieren einer Datei mit Progressbar: (Original)

Delphi-Quellcode:

procedure TForm1.CopyFileWithProgressBar1(Source, Destination: string);
var
  FromF, ToF: file of byte;
  Buffer: array[0..4096] of char;
  NumRead: integer;
  FileLength: longint;
begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);
  with Progressbar1 do
  begin
    Min := 0;
    Max := FileLength;
    while FileLength > 0 do
    begin
      BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
      FileLength := FileLength - NumRead;
      BlockWrite(ToF, Buffer[0], NumRead);
      Position := Position + NumRead;

      Label1.Caption := IntToStr((100 * Position) div Max); //<=========

      Application.ProcessMessages;
    end;
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;

Mit der Zeile:
      Label1.Caption := IntToStr((100 * Position) div Max); //<========= will ich mir den aktuellen Kopier-Prozentsatz anzeigen lassen.

Es wird auch was berechnet - aber es kommen teilweilse positive als auch negative Prozentwerte raus.

Ich hab schon an mir selbst gezweifelt ob ich jetzt schon zu blöd bin Prozent zu rechnen, aber ich habe in meiner Formel eigentlich keinen Fehler.

Vielleicht könnt ihr mir helfen.
Ich möchte eigentlich, neben der Progressbar, die Anzeige auch als Prozent von 0% --> 100% angezeigt haben.

[Vjay]

Ohne es mir jetzt genauer angeguckt zu haben, evtl. sprengt 100*position den Wertebereich eines Integer. Mache erst / und dann *

[Helmi]

Zitat von Vjay:

Ohne es mir jetzt genauer angeguckt zu haben, evtl. sprengt 100*position den Wertebereich eines Integer. Mache erst / und dann *

Geht trotzdem nicht!

Habs auch schon auf Real-Ebene probiert - geht auch nicht

[Aenogym]

setze doch mal einen bedingten haltepunkt, der anhält, sobald du eine negative prozentzahl erhälst und schaue dann, mit welchen werten er gerechnet hat. damit kannst du dir schonmal die frage beantworten, ob er mit falschen werten rechnet oder ob die werte den rahmen des datentyps sprengen.

aeno

[ManuMF]

1. Rechnen
2. Runden

Label1.Caption := IntToStr(Round(Position / Max * 100)) + ' %'; Gruß,
ManuMF

[Helmi]

Zitat von ManuMF:

1. Rechnen
2. Runden

Label1.Caption := IntToStr(Round(Position / Max * 100)) + ' %'; Gruß,
ManuMF

Oh, vielen Dank!
Jetzt gehts!

Bin wohl ans Ende vom Integer gekommen.

[Vjay]

Na das gleiche habe ich dir doch auch gesagt ^^

[Robert Marquardt]

Ein Artikel von mir in englisch: http://www.delphi-jedi.org/VOYBUGHUNT
So aktuell wie vor 5 Jahren.

[alzaimar]

... Na ja, aber Round ist doch FALSCH... (Obwohl der Unterschied minimal ist)
Round benutzt das 'Bankersrounding', sodass bei X.5 auf die nächste GERADE Zahl gerundet wird. Das ist uncool.

Delphi-Quellcode:

...
  P := Prozent(815,1000); // P = 82 
  P := Prozent(825,1000); // P = 82, dabei wäre 83 aber richtig (bei konsequentem Runden)
...

Besser ist diese Funktion:

Delphi-Quellcode:

Function AlzPercent (a,b : Integer) : Integer;
Begin
  Result := Trunc (0.5 + 100.0*a/b);
End;