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....
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....