ergebnisse in gerundeten Zahlen ausgeben

WhiteDevilEE

Grünschnabel
delphi 7:
ich habe folgenden Quelltext geschreiben:

procedure TForm1.BitBtn3Click(Sender: TObject);
var s,h,r,v ,ao, m :Real;
Pi: Real;
begin
{Einlesen der Variablen}
h := StrToFloat(Edit10.Text);
s := StrToFloat(Edit11.Text);
r := StrToFloat(Edit15.Text);

{Berechnung}
v := (1/3)*Pi*(r*r)*h;
ao :=Pi*r*(r+s);
m :=Pi*r*s;


{Ausgabe der Ergebnisse}
Edit18.Text := FloatToStr(v);
Edit17.Text := FloatToStr(ao);
Edit16.Text := FloatToStr(m);
end;

end.

Nun soll das Programm die ergebnisse in gerundeten Zahlen ausgeben!!
Nur leider will die "floatToStrF(v,ffFixed,10,2)" funkion nicht funktionieren
Ich brauche dringend hilfe....
 
Zurück