zufallszahlen im Stringgrid!

[simmi]

Ein Beispiel

Delphi-Quellcode:

var zahl    : array[1..14] of integer;
    i, j, k : word;
    ok      : boolean;
.
.
.
//Anfangswert festlegen
for i:=1 to 14 do zahl[i]:=-1;
Randomize;
i:=1;
repeat
 ok:=true;
 //Zufallszahl bilden 
 k:=random(100)+1; 
 //Prüfen ob die Zahl sich bereits in der Liste befindet
 for j:=1 to i do if k=zahl[i] then ok:=false;
 //Übernahme der neuen Zahl und Zähler erhöhen
 if ok then
   begin
    Zahl[i]:=k;
    inc(i);
   end;
until i=15;
.
//In Tabelle übernehmen