Probleme mit Real

[Helmi]

Hallo,

wie Oxmyx schon sagte, du musst es so machen um im Edit3 den berechneten Wert zu erhalten:

Code:

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); <--- wech damit
  Grs :=   strtofloat(Hi1); 
  Gew :=   strtofloat(Hi2); 

// BMI erechnen 

//        Körpergewicht 
// BMI =  ------------- 
//        Körpergrösse^2 

BMI := Gew / (Grs*Grs);


Str(BMI:0:2, Hi3);// <--- hier ist die Änderung 
Edit3.Text := Hi3;// <--- hier ist die Änderung

[edit] Anzahl der Kommastellen miteingebaut [/edit]