Hi!
Ich bin neu im Forum und möchte euch ersteinmal alle begrüßen!
Aber nun auch schon mein erstes Problem:
Delphi-Quellcode:
procedure TForm1.BitBtn2Click(Sender: TObject);
var i,nummer:byte;
begin
randomize; //Zufallsgenerator initialisieren
i:=0;
repeat
inc(i);
repeat
nummer:=random(8)+1; //Zahl zwischen 1 und 8 würfeln
until stringgrid1.cells[1,nummer]<>'';
stringgrid1.cells[2,i]:=stringgrid1.cells[1,nummer]; //inSpalte 2 kopieren
repeat nummer:=random(8)+1;
until stringgrid1.cells[2,nummer]<>'';
stringgrid1.cells[3,i]:=stringgrid1.cells[1,nummer];
repeat nummer:=random(8)+1;
until stringgrid1.cells[3,nummer]<>'';
stringgrid1.cells[4,i]:=stringgrid1.cells[1,nummer];
until i=8;
end;
diesen Quelltext möchte ich nun so umgestalten das ich in jeder Spalte alle Zahlen vorfinde, zufällig angeordnet und keine doppelt. Mhh... und ich hab jetzt gerade keine Idee! Kann mir eventuell jemand helfen?
Danke!