TStringlist自定义排序

TStringlist顾名思义就是字符串列表，一般用来存储字符串，当然也可以用来存储对象类型，是delphi开发中经常使用的一个类，关于它的详细用法可以参看万一老师的博客，下面主要是记录我在使用中碰到的一个问题，一下是一段代码。

program StringlistCmp;


{$APPTYPE CONSOLE}


uses
  SysUtils,
  Classes;


function Cmp(List: TStringList; Index1, Index2: Integer): Integer;
   begin
   if StrToint(List[index1])<StrToint(List[Index2]) then
     result:=-1
   else if StrToint(List[index1])=StrToint(List[Index2]) then
     Result:=0
   else
     Result:=1;
   end;


var
  alist:TStringList;
begin
  alist:=TStringlist.Create;
  alist.DelimitedText:='30,10,50';
  alist.Sorted:=True;       
  Writeln(alist.DelimitedText);  
  //利用默认排序方法 效果良好

  alist.DelimitedText:=&#