delphi 文本列数值排序从小到到

//感谢高手Delphi/黑夜(281309196) 分享

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

var tempStr:string;

i1,i2:Integer;

TempArr:TArray ;

begin

TempArr := List[Index1].Split(['----']);

i1 := 0;

i2 := 0;

if Length(TempArr)>=3 then

begin

tempStr := TempArr[2];

TryStrToInt(tempStr,i1);

end;

TempArr := List[Index2].Split(['----']);

if Length(TempArr)>=3 then

begin

tempStr := TempArr[2];

TryStrToInt(tempStr,i2);

end;

Result := i1-i2;

end;

procedure TForm1.FormCreate(Sender: TObject);

var lList:TStringList;

begin

lList := TStringList.Create;

lList.Add('AAA----BBB----2----DDD');

lList.Add('AAA----BBB----1----DDD');

lList.CustomSort(MySort);

ShowMessage(lList.Text);

end;

推荐分享