Größer als und kleiner als

[Tommy1988]

Inkompatible Typen Real und Integer:
Die Zeilen:

Delphi-Quellcode:

BMI := Runden(Gewicht / (GroesseM*GroesseM),2);
Alter    := StrToFloat(EdAlt.Text);
.
.
if (BMI in [19..24]) and (Alter in [19..24]) then
begin
Label34.Caption := 'BMI/Alter zwischen 19 und 24'+
FloatToStr(BMI)+'/'+FloatToStr(Alter);
end else
begin
Label34.Caption := 'mh ?!';
end;