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 vote171 views3 answers
Delphi keypress ctrl+v
Delphi
0 vote216 views1 answer
Duplicate ' in string delphi
Delphi
0 vote191 views1 answer
Delphi fullscreen
Delphi
0 vote219 views1 answer
Ceil function delphi
Delphi
1 vote261 views1 answer
Case delphi
Delphi
-1 vote191 views1 answer
Delphi if statement
Delphi
0 vote174 views2 answers
Remove escapes from json
Delphi
0 vote272 views1 answer
How write pi in delphi
Delphi
8 votes254 views4 answers
Bootstrap display error message
Delphi
2 votes260 views1 answer
Delphi how copy works
Delphi