bei Random niemals diegleiche Zahl

[Tpercon]

Da ich so einen ähnlichen Code eben schon in einem anderen Beitrag gepostet habe, will ich mal nicht so sein:

Delphi-Quellcode:

private
    numbers: array of integer;
...
procedure getnumbers;
var i, j, x: integer;

  function inarray(number: integer): boolean;
  var i : integer;
  begin
    result := false;
    for i := 0 to High(numbers) do begin
      if numbers[i] = number then begin
        result := true;
        Break;
      end;
    end;
  end;

begin
  SetLength(numbers, 0);
  while High(numbers) < 10 do begin//Anzahl Zahlen
    x := random(100) + 1;//Wertebereich
    if inarray(x) = false then begin
       j := High(numbers) + 1;
       SetLength(numbers, j + 1);
       numbers[j] := x;
     end;
  end;
  Caption := InttoStr(High(numbers));
  ListBox1.Items.Clear;
  for i:= 0 to High(numbers) do
    ListBox1.Items.Add(InttoStr(numbers[i]));
end;

Das nächste mal kannst du auch die Suche benutzen, gibt's bestimmt schon!