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

19 votes433 views2 answers
Download jupyter for linux
Delphi
6 votes427 views1 answer
Delphi array
Delphi
0 vote218 views1 answer
How to add item to listview delphi
Delphi
0 vote222 views1 answer
Types of message box C#
Delphi
0 vote229 views1 answer
React replace object in array
Delphi
0 vote259 views1 answer
Instagram bot python
Delphi
0 vote221 views2 answers
Css social code bootstrap 4
Delphi
3 votes417 views3 answers
Add data to json object
Delphi
5 votes440 views3 answers
Copy function delphi
Delphi
-1 vote251 views1 answer
Delphi if statement
Delphi