function CompareNames(Item1, Item2: Pointer): Integer;
begin
Result := CompareText((Item1 as TComponent).Name, (Item2 as TComponent).Name);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
List1.Sort(CompareNames);
end;
begin
Result := CompareText((Item1 as TComponent).Name, (Item2 as TComponent).Name);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
List1.Sort(CompareNames);
end;
我把那个函数写成类的成员了 真是有够ft