ich hab ein stringgrid mit 10x10 kästchen erzeugt und habe nun vor dort zufällig die zahlen 1 bis 100 einzuschreiben...
ich bin soweit das ich in jedem feld eine zahl habe, die zahlen zufällig verteilt sind nur soll jede zahl nur einmal vorkommen... und da scheiterts bei mir!
mein quellcode is noch sehr übersichtlich:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
zahl1:=random(99)+1;
zahl2:=random(10);
zahl3:=random(10);
stringgrid1.cells[zahl2,zahl3]:=inttostr(zahl1);
stringgrid1.Selection:=Tgridrect(rect(-1,-1,-1,-1));
end;
end.