Zitat von
Arrayuser:
o.O und was sol dein program machen? nur den stringrid bennen?
Naja, wie gesagt, dein Programm macht nix anderes^^
Ich hab nur die unnötigen Zeilen rausgestrichen
Hier mal ein Vorschlag (mit Gültigkeitsabfrage xD)
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var a : integer;
begin
randomize;
for a := 1 to 10 do
begin
StringGrid1.Cells[a-1,0] := inttostr(a);
zufall[a-1] := random(100);
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var b : integer;
begin
if TryStrToInt(Edit1.Text, b) and (b in [1..10]) then
begin
Edit2.Text := IntToStr(zufall[b]);
end else begin
showmessage('Böse! Gib gefälligst eine gültige Zahl ein!');
end;
end;
edit: Die Zeile muss so heißen:
if TryStrToInt(Edit1.Text, b) and (b in [0..9]) then