TStringList的CustomSort方法怎么用?

Question

type TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;
procedure CustomSort(Compare: TStringListSortCompare); virtual;TStringListSortCompare的返回值和index1,index2有关
如果index1>index2 返回大于0的数
如果index1<index2 返回小于0的数
等于不说了。^_^!

Answer 1

to dext(德克斯特):
谢谢你的回复,但这些我知道,DELPHI的HELP中有,我也是这样写的,但老是出错,能不能给一段能用的例子的代码?

Answer 2

有没有人能告诉我TStringList的StringListSortCompare函数应该怎么写？我写的老是出错。谢谢！

Answer 3

有没有人能告诉我TStringList的StringListSortCompare函数应该怎么写？我写的老是出错。谢谢！