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 vote420 views1 answer
Breakpoint condition delphi
Delphi
0 vote392 views1 answer
Password in delphi edit
Delphi
0 vote424 views1 answer
Set vfat label
Delphi
4 votes399 views1 answer
How to find the length of a string delphi
Delphi
19 votes475 views2 answers
Download jupyter for linux
Delphi
6 votes569 views1 answer
Delphi array
Delphi
8 votes462 views4 answers
Bootstrap display error message
Delphi
0 vote375 views1 answer
How to deacrease Time in delphi
Delphi
0 vote367 views1 answer
Choose character from string in delphi
Delphi
5 votes529 views3 answers
Copy function delphi
Delphi