Integer in Real umwandeln

[Simor]

Hallo.
Wie kann man Integer- in Real-Variablen umwandeln?
inttofloat erzeugt beim komplimieren die Fehlermeldung >>Error: Identifier not found "shortinttofloat"<<
Schon mal Danke, Simor

[Michl]

???

Code: Alles auswählen

var
  r:real;
  i:integer;
begin
  r:=i;
end;

[Simor]

Code: Alles auswählen

var
fb,b: integer;
  c: real; 
begin
b := trunc(inttofloat(b)+c*inttofloat(fb))
end;

da kommt die Fehlermeldung...

[Michl]

Code: Alles auswählen

var
fb,b: integer;
  c: real; 
begin
  b := b + Trunc(c) * fb;
end;

c ist Gleitkommawert, dieser muss umgewandelt werden, aufpassen musst du auf die Bereichsgrenzen von Integer (−2.147.483.648 bis 2.147.483.647 bei 32bit)

Siehe http://de.wikipedia.org/wiki/Integer_%28Datentyp%29

[Simor]

Dann wird aber schon c gerundet und nicht erst das Gesamtergebnis...

[Michl]

c wird nicht gerundet, sondern die Nachkommastellen werden abgeschnitten. Runden:

Code: Alles auswählen

var
fb,b: integer;
  c: real; 
begin
  b := b + Round(c * fb);
end;

so, jetzt habe ich, glaube ich, genug Hausaufgaben gemacht

[Simor]

Danke