Delphi TStringList 排序
function DescCompareInt(List: TStringList; I1, I2: Integer): Integer;
begin
I1 := StrToIntDef(List[I1], 0);
I2 := StrToIntDef(List[I2], 0);
Result := I1 - I2; //正序排序
//Result := I2 - I1; //倒叙排序
end;
//调用代码:
vStrList.Sorted:=False;
vStrList.Cu...
原创
2021-02-02 16:15:07 ·
1950 阅读 ·
0 评论