如何按第一个数字对列表进行排序？

Question

我有一个巨大的用户列表，每个用户都有它的ID，但它的ID号被搞砸所以如果有人能告诉我我该怎么排序号的用户，每个值都有这种形式

1:Stackoverflow 
or 
145000:Google 

如果我这样做手工，我想我会失去我的心，因为tehere超过70万个records.Thanks您的时间和帮助....

Answer 1

提取这样的数字：

function ID(const str: string): Integer; 
var 
    p: Integer; 
begin 
    p := Pos(':', str); 
    if p=0 then 
    raise Exception.CreateFmt('Invalid string format: %s', [str]); 
    Result := StrToInt(Copy(str, 1, p-1)); 
end; 

一旦你可以提取该ID作为一个整数，然后可以写入ac ompare函数。像这样：

function CompareIDs(List: TStringList; Index1, Index2: Integer): Integer; 
begin 
    Result := CompareValue(
    ID(List[Index1]), 
    ID(List[Index2]) 
); 
end; 

CompareValue是一个RTL函数，返回-1，0或1取决于两个操作数的相对值。

将这些积木填入TStringList.CustomSort并完成工作。

MyStringList.CustomSort(CompareIDs);