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 vote171 views1 answer
Delphi fullscreen
Delphi
0 vote150 views1 answer
Mongoose schema type double
Delphi
0 vote156 views2 answers
Css social code bootstrap 4
Delphi
0 vote226 views1 answer
Delphi copiarcaracter string
Delphi
0 vote156 views1 answer
Delphi Tidhttp error could
Delphi
34 votes240 views2 answers
Shuffle list and print
Delphi
0 vote165 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
0 vote155 views1 answer
Delphi random letter
Delphi
0 vote226 views1 answer
Delphi calculator
Delphi
1 vote241 views3 answers
Bootstrap cards with image on the right side
Delphi