Shuffle array delphi

procedure FastPermuteArray(A: TDynIntegerArray);
  procedure Swap(n, m: integer);
  var
    tmp: integer;
  begin
    tmp := A[n];
    A[n] := A[m];
    A[m] := tmp;
  end;
var
  i: Integer;
begin
  for i := High(A) downto 1 do
    Swap(i, RandomRange(0, i));
end;

Source: stackoverflow.com

Similar codes

34 votes389 views2 answers
Shuffle list and print
Delphi
0 vote338 views1 answer
INSERT into syntax error in delphi
Delphi
6 votes373 views3 answers
How to install pip in python 3.9 windows 10
Delphi
2 votes383 views1 answer
Delphi basics generating random number
Delphi
1 vote378 views4 answers
"nickolasmin"
Delphi
0 vote339 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote369 views1 answer
Hello world in delphi
Delphi
0 vote327 views1 answer
Mongoose schema type double
Delphi
0 vote319 views2 answers
Eval javascipt
Delphi
0 vote361 views1 answer
How to insert apostrophe in delphi string
Delphi