1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var a : array [1..10] of integer; //das array is eigentlich dynamisch

procedure tform4.zufall;
 var i : integer;
begin

 randomize;
 for i := 1 to length(a) do
  a[i]:=random(500+1);

end;                    

1:
2:
3:

while not (a[1]<>a[2]) and (a[2]<>a[3]) and (a[1]<>a[3])... do begin
 //SourceCode von oben
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

randmize; //nur EINNMAL!


procedure fuellen;
var b : array[1..500] of Boolean;
     i : Integer;
begin
  for i:=1 TO 500 b[i] := true;

  for i:=1 TO High(a) DO
  begin
    repeat
      a[i] := Random(500)+1;
    until b[a[i]] = true;
    b[a[i]] := False;
  end;
end;                    

1:
2:
3:
4:
5:

liste := TStringlist.create;
for x :=1 to 500 do
begin
liste.add(inttostr(x));  // Nun haben wir alle zahlen von 1-500
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

y := 1; // unser erses Arrayelement hat diesen Index

repeat
z := random(liste.count)  // Nur was noch da ist kann zufällig gezogen
                                   // werden...

meinarray[y] := strtoint(liste[z])  // das gezogene wandert ins array

liste[z].delete;    // egal wie die syntax ist.. auf jeden fall element aus
                        // der liste löschen

inc(y);             //  nächstes Mal wird das nächste Arrayfeld gefüllt

until liste.count < 1;   // wenn es nur noch 0 Elemente gibt, kann
                                //aufgehört werden.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

tt: string;

Randomize;

liste1.clear;

liste1.add(inttostr(Random(500)+1));

while liste1.count < 10 do
   begin
       tt:=inttostr(Random(500)+1);
       
       if liste1.indexof(tt) <0 
       // tt ist noch nicht in der Liste enthalten
       
       liste1.add(tt);
       Application.ProcessMessages;
       // Andere Anwendungen wollen auch noch leben -)

    end;                    

1:
2:

if liste1.indexof(tt) <0  
       // tt ist noch nicht in der Liste enthalten                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure fuellen;
VAR b : Array[1..500] of Integer;
    i,k, max : Integer;
begin
  for i:=1 TO 500 DO b[i] := i;
  max := 500;

  for i:=1 TO 10 DO
  begin
    k := random(max)+1;
    a[i] := b[k];

    b[k] := b[max];
    dec(max);
  end;
end;                    

1:
2:
3:
4:
5:

PreCounter := Counter;
      Repeat
        Counter := Random(Listbox1.Items.Count);
      Until
        Counter <> PreCounter;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

TPicArray = array of gluInt;
.
.
.
procedure Shuffle(var Arr: TPicArray);
var
  i,tmp: integer;
  tmpPic: gluInt;
begin
  for i := 0 to high(Arr) do
  begin
    tmp := random(high(Arr));
    tmpPic := Arr[i];
    Arr[i] := Arr[tmp];
    Arr[tmp] := tmpPic;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Procedure CreateRandomValues(Var a:Array of Integer);
Var i,v,index1,index2:Integer;
Begin
  For i:=0 to High(a) do a[i]:=i; //Werte vorbelegen;
  For i:=0 to 1000 do //Feld mischen
    Begin
      index1:=Random(Length(a));
      index2:=Random(Length(a));
      v:=a[index1]; a[index1]:=a[index2]; a[index2]:=v;
    End;
End;                    

1:
2:
3:

var
meinarray : array[1..500] of integer;
liste : TStringlist;  // da aber das ordentliche serstellen nicht vergessen ;-)                    

1:

delete(array,recordnummer);