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 vote161 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote197 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote204 views1 answer
Ceil function delphi
Delphi
11 votes279 views3 answers
Practicing python
Delphi
5 votes273 views3 answers
Copy function delphi
Delphi
0 vote159 views1 answer
How to add item to listview delphi
Delphi
0 vote170 views1 answer
Delphi dynamic array count
Delphi
2 votes253 views1 answer
Delphi basics generating random number
Delphi
0 vote160 views2 answers
Remove escapes from json
Delphi
0 vote236 views1 answer
Delphi check if key pressed is enter
Delphi