Hallo,
habe ein Prob mit Realzahlen!
Ich wollte mal ein Programm zum Berrechnen von BMIs schreiben.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
VAR BMI : real;
Grs : real;
Gew : real;
Hi1 : string;
Hi2 : string;
Hi3 : string;
begin
//Variablen bestimmen
Hi1 := Edit1.text;
Hi2 := Edit2.text;
Hi3 := FloatToStr(BMI);
Grs := strtofloat(Hi1);
Gew := strtofloat(Hi2);
// BMI erechnen
// Körpergewicht
// BMI = -------------
// Körpergrösse^2
BMI := Gew / (Grs*Grs);
Edit3.Text := Hi3;
Dann wollte ich machen, dass in Edit3.text eine normale Kommazahl steht, z.B. 22,35 oder so, hat aber irgendwie net geklappt.
Hatte versucht
BMI := Gew / (Grs*Grs):4:2;
Was hab ich Falschgemacht?
Jetzt schon mal Danke für jede antwort!
PS: Ich weiss, ich hab ein paar Variablen unnötig eingesetzt! Die hätte ich gar net gebraucht.