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 vote270 views1 answer
Delphi check if key pressed is enter
Delphi
0 vote226 views1 answer
Breakpoint condition delphi
Delphi
0 vote193 views1 answer
Inputbox delphi
Delphi
8 votes382 views4 answers
Bootstrap display error message
Delphi
0 vote221 views1 answer
Hello world in delphi
Delphi
0 vote195 views1 answer
Types of message box C#
Delphi
4 votes398 views2 answers
Copy delphi
Delphi
0 vote209 views1 answer
Delphi dynamic array count
Delphi
6 votes305 views8 answers
React -slick
Delphi
0 vote193 views1 answer
How to check if something is only numbers in delphi
Delphi