Konvertierung Extended nach Integer

[Franz Moll]

Hallo NG,

ich habe hier folgendes Konstrukt:

var
d: Double;
i: Integer;
begin
...
i := 100 * RoundTo(d, -2);
...
end;

Der Compiler meckert bei der Zuweisung für i wie folgt:

"E2010 Inkompatible Typen: 'Integer' und 'Extended'"

Recht hat er.
Ich möchte i als ganzahliges 100-Faches von d haben.
Wie macht man es richtig?

Vielen Dank schon mal.

Bye

Franz

[Alfred Gemsa]

Post by Franz Moll
i := 100 * RoundTo(d, -2);
Ich möchte i als ganzahliges 100-Faches von d haben.

i := round(100*d);

Alfred.

[Holger Schieferdecker]

Post by Franz Moll
Hallo NG,
var
d: Double;
i: Integer;
begin
...
i := 100 * RoundTo(d, -2);

i := Trunc( 100 * RoundTo(d, -2));

Post by Franz Moll
...
end;
"E2010 Inkompatible Typen: 'Integer' und 'Extended'"
Recht hat er.
Ich möchte i als ganzahliges 100-Faches von d haben.
Wie macht man es richtig?

Nachdem die Rundung und die Multiplikation ja schon die richtige Zahl
erzeugt haben, sollte es doch reichen, einfach die Nachkommastellen (in
dem Fall halt 0) zu "entfernen".

Gruß
Holger