delphi中对树进行自定义排序

======================================================
注：本文源代码点此下载
======================================================

这几天搞个客户管理,左边是树,要求其中的同级节点可以上下移动,并能保存下次初始化时还按修改过的顺序生成树,找资料都是按下面的方法.

-----------------------------下面是别人这样做的但没试成功------------------------------------

下面函数不要进行定义

function customsortproc(node1, node2: ttreenode; data: integer): integer; stdcall;

begin

result := -ansistricomp(pchar(node1.text), pchar(node2.text));

//看!这里就在判断两个node的前后顺序

//返回值的意思: -1 表示node1在前,node2在后

//0表示相等

//1表示node1在后,node2在前

end;

调用时

treeview1.customsort(@customsortproc, 0);

----------------------下面是我的方法----------------------------------------------------------------

数据库中除了自增字段,父字段外,还有一个顺序字段,顺序字段保存节点在树中的索引序号,如有调整修改此值即可,下次生成树时按此顺序字段排序再添加树.

绿色通道:好文要顶关注我收藏该文与我联系

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/