bei Random niemals diegleiche Zahl Teil 2

[negaH]

Delphi-Quellcode:

const
  Count = 8;

var
  Number: array of Integer;
  I,J,K,T: Integer;
  S: String;
begin
// Initialisierung
  SetLength(Numbers, Count);
  for I := 0 to High(Numbers) do Numbers[I] := I +1;

// Numbers Array vermischen
  for I := 0 to Count * Count -1 do
  begin
    J := Random(Count);
    K := Random(Count);

    T := Numbers[J];
    Numbers[J] := Numbers[K];
    Numbers[K] := T;    
  end;

// Ausgabe
  S := '';
  for I := 0 to High(Numbers) do 
    S := S + IntToStr(Numbers[I]) + #13#10;
  SetLength(S, Length(S) -2);
  
  ListBox1.Items.Text := S;  
end;

Gruß Hagen