Größer als und kleiner als

[Tommy1988]

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;