Zdravím, jsem začátečníkem v Delphi a mám v tomto příkladě menší problém, při spuštění mi to píše chybu Ordinal Type Required....Nevěděl by někdo, co doplnit aby program fungoval? Předem děkuji za odpověď.
procedure TForm1.Button1Click(Sender: TObject);
var x,y,bmi:real;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.text);
bmi:=x/(y*y);
Memo1.lines.add('BMI je: '+floattostrf(bmi,fffixed,8,2));
case bmi of
0..20: Memo1.lines.add('Podvýživa');
21..25: Memo1.lines.add('Normál');
26..30: Memo1.lines.add('Nadváha');
31..10000: Memo1.lines.add('Obezitost');
end;
end;
end.