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

0 vote415 views1 answer
Free array Delphi 7
Delphi
0 vote391 views2 answers
Remove escapes from json
Delphi
0 vote434 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote501 views1 answer
How to make a shape move in delphi
Delphi
2 votes521 views1 answer
Delphi how copy works
Delphi
6 votes467 views3 answers
How to install pip in python 3.9 windows 10
Delphi
1 vote540 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote439 views1 answer
Delphi check if key pressed is enter
Delphi
0 vote412 views2 answers
Css social code bootstrap 4
Delphi
-1 vote449 views1 answer
Delphi if statement
Delphi