TStringList 排序代码



代码功能: 对保存在多个 TStringList 中的数据进行排序，

支持按数字，日期，文字进行排序，

支持顺序和倒序排序，



procedure MyStringsCustomSort(var aData: TSortData SortIndex, SortType: Integer SortFlg: Bool)



//-------排列字符串组单元--------

//SortIndex 要排列的 数据行 ID

//SortType 排列类型 0 大小, 1 时间,3 文字

//SortFlg 顺序还是反序-Sort code TStringList code functions: to preserve in a number of TStringList sort data, support by the number, date, text sort, support the order and reverse order, procedure MyStringsCustomSort (var aData: TSortData SortIndex, SortType: Integer SortFlg: Bool) //------- with string--------// SortIndex group of cells arranged in rows of data to ID// SortType with type 0 size, 1 time, 3 text// SortFlg order or anti- Preface