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

3 votes364 views2 answers
Get current date delphi
Delphi
0 vote320 views1 answer
Mongoose schema type double
Delphi
0 vote405 views1 answer
How to make a shape move in delphi
Delphi
0 vote348 views1 answer
Delphi check if key pressed is enter
Delphi
3 votes386 views3 answers
Add data to json object
Delphi
0 vote330 views1 answer
INSERT into syntax error in delphi
Delphi
0 vote313 views1 answer
Bootstrap 4 form modal popup
Delphi
0 vote355 views1 answer
Ceil function delphi
Delphi
0 vote345 views1 answer
How to check if something is only numbers in delphi
Delphi
0 vote383 views1 answer
Delphi draw antialiased line
Delphi