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

for i:=1 to 20 do 
begin 
j:= i;
z:=random(30)+1;   //Zufallszahl ziehen 
A[i]:=z;           // im Array speichern 
if i> 1 then       // 
      for j:=i-1 downto 1   
      begin              // gibt es die Zahl schon ?
      if a[j]=a[i] then  //  wenn Zahl schon da   
          
 z:=random(30)+1;        // ziehe Zahl neu 
            a[i]:= z;
            end;  
end;					

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

for i :=1 to 20 do
begin
  j := i;
  z := Random(30) + 1; //Zufallszahl ziehen
  A[i] := z; // im Array speichern
  if i > 1 then //
    for j := i-1 downto 1
    begin // gibt es die Zahl schon ?
      if a[j] = a[i] then // wenn Zahl schon da
        z := Random(30) + 1; // ziehe Zahl neu
      a[i] := z;
    end;
end;					

 
7:
8:
9:
10:
11:
12:
13:
14:

{ ... }
for j := i-1 downto 1
begin // gibt es die Zahl schon ?
  while a[j] = a[i] do // wenn Zahl schon da
  begin
    z := Random(30) + 1; // ziehe Zahl neu
    a[i] := z;
  end;
end;					

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

for i := 1 to 20 do  
begin   
  found := True;

  while found do
  begin
    found := False;
    z := Random(30) + 1;

    for j := i - 1 downto 1 do
      if a[j] = a[i] then
        found := True;
  end;

  a[i] := z;
end;					

1:

Var MyStringList   : TStringlist;  // gehört zu den Variablendeklarationen					

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

MyStringList:=TStringlist.Create;  // Wenn global, dann nur 1x erstellen
   // das hier geht öfter
MyStringlist.Clear;
For i:=1 to 30 do MyStringlist.Items.Add(IntToStr(i)); // i in einen String wandeln

//nun die Zufallszahlen ermitteln, bzw. in eine 2. Stringlist übertragen

MyErgebnis.Items.Clear;

MyStringList:=TStringlist.Create;  // MyStringlist wird deklariert vom Typ TStringlist
for i:=1 to 20 do   
begin   
  Max := MyStringlist.Count-1;
  Z:=random(Max);   //Zufallszahl ziehen   
  A[i]:=StrToInt(MyStringlist[z]);   // im Array speichern   
  // oder
  MyErgebnis.Items.Add(MyStringList[i]);  //TListbox
  // nun den Eintrag entfernen
  MyStringlist.Delete(i);
  
end;					

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

function GetRandomValues(MaxValue {=30}, ValueCount {=20}: Integer): TIntegerArray;
var Values: array of Integer; i, Index: Integer;
begin
  // Quellenarray füllen
  SetLength(Values, MaxValue);
  for i := Low(Values) to High(Values) do Values[i] := i+1;

  // Zielarraygröße setzen
  SetLength(Result, ValueCount);
  
  for i := Low(Result) to High(Result) do
  begin
    // Zufallszahl berechnen (0..AnzahlVerbleibende-1)
    Index := Random(Length(Values));

    // Zahl aus Quellenarray lesen
    Result[i] := Values[Index];

    // Letzen Eintrag des Quellenarrays in Values[Index] sichern, danach letzten löschen
    Values[Index] := Values[High(Values)];
    SetLength(Values, Length(Values)-1);
  end;
end;					

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

var 
i,z,k:integer ; 
found:Boolean; 
a:array[1..20]of integer ; 
for i := 1 to 20 do  
begin   
  found := false ;  //keine Zahl 

  while found=false  do
  begin
    
    z := Random(30) + 1;
found:=True;  //Zahl gezogen 
    for k := i downto 1 do  //Zahl schon da ?
      if a[k] = z then      //wenn ja wiederhole
        found := false;
  end;

  a[i] := z;         //Zahl ins  Array; 
end;