|
盒子资源分类 |
![]() |
|
|
|
TStringList排序 |
![]() |
关键字:TStringList 排序 |
来 自:原创 |
平 台:Win2k/XP/NT,Win2003,Vista |
下载所需:0 火柴 |
深浅度:中级 |
完成时间:2008/5/6 |
发布者:fddr |
发布时间:2008/5/6 |
编辑器:DELPHI7 |
语 种:简体中文 |
分 类:字符串 |
下载浏览:2046/16983 |
|
|
|
|
TStringList 排序代码
代码功能: 对保存在多个 TStringList 中的数据进行排序, 支持按数字,日期,文字进行排序, 支持顺序和倒序排序,
procedure MyStringsCustomSort(var aData: TSortData; SortIndex, SortType: Integer; SortFlg: Bool);
//-------排列字符串组单元-------- //SortIndex 要排列的 数据行 ID //SortType 排列类型 0 大小, 1 时间,3 文字 //SortFlg 顺序还是反序 |
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们! |
相关文章 |
|
![]() |
|
相关评论 |
![]() |
共有评论6条
当前显示最后6条评论
|
blueflag |
2008/5/18 9:39:50 |
速度如何?谁测试了??!!! |
harryfin |
2008/5/21 9:59:01 |
做这个很简单的啦,TStringList本来就有CustomSort,自己写个回调函数给CustomSort调用即可,至于StringList里的某两项怎么比较法,在回调函数里实现。TStringList用的是QuickSort,速度很快的。 |
wqquake |
2008/5/22 10:27:58 |
我也看过TStringList里面的排序算法。有空再看看你的这个吧。 |
fddr |
2008/5/22 19:44:00 |
抱歉发布的时候没注意
//SortType 排列类型 0 大小, 1 时间,3 文字 应该是 //SortType 排列类型 0 大小, 1 时间,2 文字 |
huhuc |
2008/6/4 9:25:03 |
a value less than 0 if the string identified by Index1 comes before the string identified by Index. 楼主偏偏要反着写,正好和界面配合了。 |
grjs_2004 |
2008/6/8 16:21:16 |
用了AddObject的StringList 怎么把过滤过的StringList添加到另外一个StringList里面? 比如: StLst1: TStringList; StLst2: TStringList;
StLst1: 121212 ddd 13232 ddd 233333 eee
如何把StLst1里Objects是‘ddd’的过滤出来然后添加到 StLst2里面? |
我要发表评论 |
查看全部评论 |
|
|
|