Hallo,
den "Fehler" kannst du auch umgehen, indem du den Compiler zwingst, Code für eine Berechnung auf Int64-Basis zu erzeugen:
Delphi-Quellcode:
var
nPotenz : Integer;
begin
:
if nSize > (Int64(nPotenz) * nPotenz * nPotenz * nPotenz) then
AFormat := 'fsTerabyte';
if nSize > (Int64(nPotenz) * nPotenz * nPotenz * nPotenz * nPotenz) then
AFormat := 'fsPetabyte';
end;
Gruß Hawkeye