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.
Time2Play's Variante is die einzige die geht THX Time2Play...
also Intenger ...... Nur Zahlen
und welche Variblae brauch ich um auch bauchstaben einfügen zu können??
mfG
mike