Delphi 7: BMI programmierung

[jmit]

Hallo,

Zitat von Slimi xD:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2, summe :real;
begin
zahl1 := StrToInt(TFGewicht.text);
zahl2 := StrToInt(TFGroesse.text);
summe := zahl1/(zahl2*2);

wenn ich dann auf den button klicke kommt z.B. "1,88" ist kein integer Wert !!!Obwohl ich "real" genommen habe was doch eigentlich für dezimalzahlen ist oder irre ich mich da?

kannst Du Deinen Quellcode in DelphiTags darstellen.
Z.B. so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var zahl1, zahl2, summe :real;

begin
  zahl1 := StrToInt(TFGewicht.text);
  zahl2 := StrToInt(TFGroesse.text);
  summe := zahl1/(zahl2*2);
end;

Gruß Jörg