Problem: Array-Typ erforderlich

[Klaus01]

Delphi-Quellcode:

var a : string;
    b,c : integer;

begin
  a:=Edit1.Text;
  c:=strtoint(a);  // und hier knallt es, wenn a keine Zahl ist!
  If (1<=c) and (c<=10) then // hier kommt er nicht mehr
    begin
      Edit2.Text:='?';
      Edit1.Text:='';
   end
  else
    begin
      b:=zufall[strtoint(a)];
      Edit2.Text:=inttostr(b);
    end;
end;