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;
---------------------