stringgrid

[Noobinator]

gerade abgetippt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahlen:set of Byte;
    rand,i,j:integer;
begin
randomize; //Zufallsgenerator initialisieren
Zahlen := []; //leere Menge anlegen

for i := 0 to 9 do //Zeilen und Spalten durchgehen
  for j := 0 to 9 do
    begin
      rand := random(100) + 1; //zufallszahl suchen
       while  rand in Zahlen  do //schauen ob schon vorhanden, wenn ja neue
           rand :=  random(100) + 1;
       include(zahlen,rand); //hinzufügen zu bereits benutzen Zahlen
       stringgrid1.Cells[i,j] := IntToStr(rand); //reinschreiben
    end;
end;

Achtung: Las Vegas Algo - Laufzeit nicht gesichert.