Ja Dominik es geht habs nur bisl modifiziert
Delphi-Quellcode:
begin
if TryStrToInt(Edit1.Text, b) and (b in [0..9]) then
begin
Edit2.Text := IntToStr(zufall[b]);
end else begin
Edit1.Text:='';
Edit2.Text:='?';
end;
end;
aber ich habs etwas anders versucht ging aber nicht und zwar :
Delphi-Quellcode:
var a : string;
b,c : integer;
begin
a:=Edit1.Text;
c:=strtoint(a);
If 1<=c<=10 then // hier kamm der fehler
begin
Edit2.Text:='?';
Edit1.Text:='';
end
else
begin
b:=zufall[strtoint(a)];
Edit2.Text:=inttostr(b);
end;
end;