Extended VS Integer

[qubeus]

Hi Leutz !!! Habe ein Problem, das recht leicht zu lösen sein sollte. Ich möchte einen Extended-Wert zu einem Integer-Wert umwandeln, dabei sollen z.B. Nachkommastellen einfach wegfallen.

Beispiel Code:

procedure TForm1.zeichne_strecke(x:integer;y:integer);
var laenge,laeng:integer;

begin

if sqrt(x*x) > sqrt(y*y) then laeng:=(x*x) else laeng:=(y*y);
laenge:=(sqrt(laeng));

end;


Helft mal dem armen Mann!