Probleme mit Real

[St.Pauli]

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? :?: :roll: :?: :( :?:

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.

[fkerber]

Hi!

Das : gibt es nicht.
Verwende div bei integers sonst /


Ciao Frederic

[Oxmyx]

Du musst "BMI" erst ausrechnen, bevor du "Hi3 := FloatToStr(BMI);" ausführst.

[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]

[St.Pauli]

:-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D

Vielen Dank für die schnellen Antworten!!!
Ich liebe dieses Forum! (keine Ironie!!!!)

:-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D