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

-1 vote225 views1 answer
Delphi if statement
Delphi
34 votes416 views2 answers
Shuffle list and print
Delphi
0 vote195 views3 answers
Delphi keypress ctrl+v
Delphi
0 vote201 views1 answer
Inputbox delphi
Delphi
19 votes410 views2 answers
Download jupyter for linux
Delphi
2 votes397 views1 answer
Delphi basics generating random number
Delphi
11 votes413 views3 answers
Practicing python
Delphi
0 vote201 views2 answers
Eval javascipt
Delphi
2 votes415 views1 answer
Get last element of array delphi
Delphi
0 vote200 views1 answer
Get time in milliseconds delphi
Delphi