Eingabe von Buchstaben in Editfelder verhindern

[Sir Rufo]

Also die Überprüfung würde ich wie folgt schreiben (kürzer und knackiger und fehlertoleranter).

StrToIntDef( Str, Value ) macht eigentlich das gleiche wie StrToInt( Str ), nur dass bei StrToIntDef, wenn in Str keine brauchbare Ziffern stehen (also z.B. Buchstaben), dann wird als Ergebnis Value ausgegeben.

Delphi-Quellcode:

procedure TForm1.ButtonBerechnenClick(Sender: TObject);
var
  a : Integer;
begin
  // Ungültige Eingaben werden ausgeschlossen

  if StrToIntDef( EditPalettenLast.Text, 1001 ) > 1000 ) then
    ShowMessage( 'Ungültiger Wert für die Palettenlast!' )
  else   
    if StrToIntDef( EditLagerHoehe.Text, 16 ) > 15 then
      ShowMessage( 'Ungültiger Wert für die Lagerhoehe !' )
    else
      if StrToIntDef( EditRegalLaenge.Text, 76 ) > 75 then
        ShowMessage( 'Ungültiger Wert für die Lagerlänge !' )
      else
      begin

        --> dann folgt unsere Rechnung

cu

Oliver