Kleiner und einfacher BMI Rechner

[Maja Jessica]

Einen hab' ich noch: Eventuell Fehleingaben (Grösse > 250cm oder Alter > 150) abfangen.
Auch sollten nur Ziffern möglich sein:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9',#13,#8, '.' , ',' ]) then key := #0;
 if key = '.' then key :=',';
end;

mj