Delphi XE中泛型数组的使用范例，下面的范例简单的使用了泛型字符串数组，如用 TArray 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点). 

uses Generics.Collections, Generics.Defaults;

 

{测试 TArray 的 Sort 方法}

procedure TForm1.Button1Click(Sender: TObject);

var

  arr: TArray; //同 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(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; //同 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(arr, 4, n) then ShowMessage(IntToStr(n)); //2, 也就是第三个

 

  if TArray.BinarySearch(arr, 5, n) then ShowMessage(IntToStr(n)); //找不到时, 不能根据 n 的值判断

end;

 

{自定义排序器}

procedure TForm1.Button3Click(Sender: TObject);

var

  arr: TArray;

  num: Integer;

begin

  SetLength(arr, 5);

  arr[0] := 2;

  arr[1] := 4;

  arr[2] := 3;

  arr[3] := 1;

  arr[4] := 5;

 

  TArray.Sort(arr, TComparer.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;

//该代码片段来自于: http://www.sharejs.com/codes/delphi/9000