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 vote384 views1 answer
Set vfat label
Delphi
0 vote433 views1 answer
How to make a shape move in delphi
Delphi
0 vote351 views1 answer
How to use incyear in delphi
Delphi
2 votes417 views1 answer
Delphi basics generating random number
Delphi
0 vote360 views1 answer
Password in delphi edit
Delphi
0 vote361 views3 answers
Delphi keypress ctrl+v
Delphi
0 vote357 views1 answer
Get time in milliseconds delphi
Delphi
0 vote370 views1 answer
Delphi calculator
Delphi
1 vote466 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote411 views1 answer
Ceil function delphi
Delphi