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;