ÉÆÓ÷ºÐÍÊý×é

uses Generics.Collections, Generics.Defaults;

{²âÊÔ TArray µÄ Sort ·½·¨}
procedure TForm1.Button1Click(Sender: TObject);
var
  arr: TArray<string>; //ͬ array of string
  s: string;
begin
  SetLength(arr, 5);
  arr[0] := 'aaa';
  arr[1] := 'AAA';
  arr[2] := '111';
  arr[3] := '333';
  arr[4] := '222';

  TArray.Sort<string>(arr);
  Memo1.Clear;
  for s in arr do Memo1.Lines.Add(s); //111 222 333 AAA aaa
end;

{²âÊÔ TArray µÄ BinarySearch ·½·¨}
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: TArray<Integer>; //ͬ array of Integer
  i,n: Integer;
begin
  SetLength(arr, 5);
  for i := 0 to Length(arr) - 1 do arr[i] := Integer(Sqr(i));
  Memo1.Clear;
  for i := Low(arr) to High(arr) do Memo1.Lines.Add(IntToStr(arr[i]));

  if TArray.BinarySearch<Integer>(arr, 4, n) then ShowMessage(IntToStr(n)); //2, Ò²¾ÍÊǵÚÈý¸ö

  if TArray.BinarySearch<Integer>(arr, 5, n) then ShowMessage(IntToStr(n)); //ÕÒ²»µ½Ê±, ²»Äܸù¾Ý n µÄÖµÅжÏ
end;

{×Ô¶¨ÒåÅÅÐòÆ÷}
procedure TForm1.Button3Click(Sender: TObject);
var
  arr: TArray<Integer>;
  num: Integer;
begin
  SetLength(arr, 5);
  arr[0] := 2;
  arr[1] := 4;
  arr[2] := 3;
  arr[3] := 1;
  arr[4] := 5;

  TArray.Sort<Integer>(arr, TComparer<Integer>.Construct(
    function (const a,b: Integer): Integer
    begin
      Result := b - a;
    end
  ));
  Memo1.Clear;
  for num in arr do Memo1.Lines.Add(IntToStr(num)); //5 4 3 2 1
end;