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

6 votes223 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote193 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
0 vote193 views2 answers
Remove escapes from json
Delphi
0 vote197 views1 answer
Get time in milliseconds delphi
Delphi
0 vote245 views1 answer
How write pi in delphi
Delphi
0 vote175 views1 answer
Choose character from string in delphi
Delphi
0 vote183 views1 answer
Types of message box C#
Delphi
0 vote228 views1 answer
Delphi copiarcaracter string
Delphi
0 vote205 views1 answer
Password in delphi edit
Delphi
0 vote162 views1 answer
Instagram bot python
Delphi