beim leeren feld oder wenn der wert zu klein ist

[Sir Rufo]

Delphi-Quellcode:

var
  LValue : Integer;
begin
  if Edit1.Text = '' 
  then
    ShowMessage( 'Wert eintragen' )
  else
    if not TryStrToInt( Edit1.Text, LValue )
    then
      ShowMessage( 'Zahl-Wert eintragen' )
    else
      if LValue < 4 
      then
        ShowMessage( 'Wert muss mindestens 4 sein' );
end;