{只排序第一层} 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); //只排序第一层