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.
Druckbare Version
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