treeview排序

{只排序第一层}
procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.AlphaSort(False);
end;

{全部排序}
procedure TForm1.Button2Click(Sender: TObject);
begin
  TreeView1.AlphaSort;
end;

{指定排序类型}
procedure TForm1.Button3Click(Sender: TObject);
begin
  TreeView1.SortType := stText;

{SortType 有四种选择:
  stNone, stData, stText, stBoth
  stText 表示按显示的标签文本排序.
}
end;

{倒排序}
procedure TForm1.Button4Click(Sender: TObject);
  function MySort(Node1, Node2: TTreeNode; lParam: Integer): Integer; stdcall;
  begin
    Result := -AnsiStrIComp(PChar(Node1.Text), PChar(Node2.Text));
  end;
begin
  TreeView1.CustomSort(@MySort, 0);
end;


注释：

1,AnsiStrIComp 意思是 指针字符串对比函数；AnsiStrIComp：用来返回比较两个指针字符串。

函数说明

首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas

功能 返回比较两个指针字符串

说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略)

 

参考 function Windows.CompareString

例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text));

 

2,

TreeView1.CustomSort(@MySort, 0);//

排序所有层；

 TreeView1.CustomSort (mySort,1); //只排序第一层  

 

 参考链接： http://www.cnblogs.com/del/archive/2008/03/13/1103445.html

转载于:https://www.cnblogs.com/chuangyiyuan/p/6908242.html