delphi 对TStringList中的数值进行排序

//排序函数,作为参数传递给CustomSort方法.降序，如果要升序的话将-1和1调个个就行了，呵呵。

function NumberSort(List: TStringList; Index1, Index2: Integer): Integer;

var

Value1,Value2:Integer;

begin

Value1:=StrToInt(List[Index1]);

Value2:=StrToInt(List[Index2]);

if Value1>Value2 then

Result:=-1

else if Value1<Value2 then

Result:=1

else

Result:=0;

end;

//填充数据并排序

procedure TForm1.Button1Click(Sender: TObject);

var

SL:TStringList;

i: Integer;

begin

SL:=TStringList.Create;

try

for i:=0 to 100 do

begin

SL.Add(IntToStr(Random(1000)));

end;

SL.Add('测试错误');

Listbox1.Items.Assign(SL); //排序前

SL.CustomSort(NumBerSort); //排序

ListBox2.Items.Assign(SL); //排序后

finally

SL.Free;

end;

end;