Trotz der Lösung noch eine Anmerkung:
Zitat von
-=Breeze=-:
Code:
var x : integer;
y : int64;
begin
x:=122;
y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x;
Edit1.Text:=IntToStr(y);
end;
Der erste Operand ist immernoch ein Integer, somit rechnet er mit 32 Bit.
Zitat von
-=Breeze=-:
Code:
y:=int64(x*x*x*x*x*x*x*x*x*x*x*x*x*x);
Auch hier ist der erste Operand immernoch 32 Bit, somit rechnet er das ganze immernoch mit 32 Bit Arithmetik. Da lohnt es sich dann auch nicht mehr, das Endergebnis zu casten, das ist dann schon versaut.[/quote]