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! :wall: :freak:

[hoika]

Hallo,

entweder type cast
i:= Integer(extended)

oder Round/Trunc
i:= Trunc(extended)


Heiko

[qubeus]

Perfekt DANKE!
Habs jetzt schon so gelöst. Auch schlecht: laenge:=strtoint(floattostr(sqrt(laeng)));

Bye!

[3_of_8]

Ja, EXTREM SCHLECHT.

Und funktioniert auch nicht immer. Genauergesagt: Es funktioniert meistens nicht.

[panzerfischer]

ich weiß ja nicht wie sich das bei ner gleitkommazahl verhält, weil der string ist z.b. '2.6',
aber das ist ja keine integer value, -->fehlermeldung

round oder trunc sind schon angebrachter

[3_of_8]

Mal abgesehen von der Laufzeit...