Código Delphi [-] 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(@CompareText); end;
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(@CompareText); end;