Problem bei Fehlerverarbeitung

[haentschman]

Hallo...

versuchs mal damit:

Delphi-Quellcode:

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
var AllesOK: Boolean;
begin
 AllesOK:= True;
 if key=#13 then
   begin
     bevel4.Hide;
     try
       aanzahl:=strtoint(edit4.Text)
     except
       begin 
         showmessage(Edit4.Text + ' ist kein gültiger Wert');
         Edit4.Text:= '';  // z.B. Feld löschen, oder du kannst an dieser Stelle alles markieren, wie du willst 
         AllesOK:= False; 
     end;
  if AllesOK then
    begin
      edit4.Hide;
      radiogroup1.Show;
      radiogroup1.setfocus;
    end;
  end;
end;

- Im Falle eines Fehlers wird AllesOK auf False gesetzt und Edit4 bleibt sichtbar.