TList及Sort的使用

这里主要用到指针

-------------------

//这是比较函数
function CompareNames(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(string(Item1^),string(Item2^));  //地址指针转成String后再比
end;


procedure TForm1.Button5Click(Sender: TObject);
var
   a:TList;
   c:Integer;
   i:Integer;
   s:string;
const
   aa:array[0..3] of string=('D','C','B','A');
begin

   a:=TList.Create;
   a.Add(@aa[0]);
   a.Add(@aa[1]);
   a.Add(@aa[2]);
   a.Add(@aa[3]);
   c:=a.Count;//得到List的长度
   a.Sort(@CompareNames);//叫用比较函数
   for i := 0 to 3 do
   begin
       s:=s+String(a.Items[i]^); //把一个string指针转成string
   end;
     ShowMessage(s);
end;

---------------------

转载于:https://www.cnblogs.com/28088191/archive/2008/12/15/1355314.html