Prozentrechnung geht nicht bei grossen Zahlen!?

[Neotracer64]

Hatte dasselbe Problem. Integer geht ja nur bis 2.147.483.647.

Habe es dann über Real gelöst:

Delphi-Quellcode:

var
Progress    : Int64;
Percent     : Real;

Percent := (i / HexEdit.DataSize) * 100;
Progress := Ceil(Percent);
pbProgress.Position := Progress;