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!
