tstringlist.Sort排序的问题(8)

tstringlist.Sort这个函数为什么只按字符串来排序,我想按实数排序应该怎么做

customsort打字可能有错里面有个判断函数要你自已编。

我想按实数排序应该怎么编那个判断函数啊

customsort的参数里有这个函数名，具体看例子。

自己写一个 function MyStringListCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;然后再override一下Tstringlist的Sort：CustomSort(MyStringListCompareStrings);

我已经研究了此个函数,但是没明白.能再具体点吗

1 3.234232 2.333233 4.324234 1.32222按第二列的大小排序应该怎样写排序语句

function mycomp(List: TStringList; Index1, Index2: integer): single; var r1,r2:single; begin r1:=strtofloat(list.Strings[index1]); r2:=strtofloat(list.Strings[index2]); result:=r1-r2; end;procedure TForm1.Button1Click(Sender: TObject); var t:tstringlist;begin t:=tstringlist.Create; t.Add('1 1.23442'); t.Add('2 2.5234'); t.Add('3 1.3323'); t.Add('4 1.22222'); t.Add('5 5.23'); t.Add('6 6.32'); t.Add('7 20.2344'); t.CustomSort(mycomp); Memo1.Lines.AddStrings(t);end;不知道错在那里(想把StringList里的实数排序)