mfgCode:procedure TForm1.Button1Click(Sender: TObject); var eingabe:integer; begin try Eingabe := StrToInt (Edit1.Text); if Eingabe = 53434 then Label1.Caption := 'Richtig getippt!'; except Label1.Caption := 'FALSCH!'; end; end; end.
mfgCode:procedure TForm1.Button1Click(Sender: TObject); var eingabe:integer; begin try Eingabe := StrToInt (Edit1.Text); if Eingabe = 53434 then Label1.Caption := 'Richtig getippt!'; except Label1.Caption := 'FALSCH!'; end; end; end.