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

Question

我有一个庞大的用户列表，每个用户都有它的 id，但它的 id 号是乱七八糟的，所以如果有人能告诉我如何按数字对用户进行排序，每个值都有这种形式

1:Stackoverflow
or
145000:Google 

如果我手动执行此操作，我想我会失去理智，因为这里有超过 700000 条记录。感谢您的时间和帮助....

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 提取为整数，您就可以编写一个比较函数。像这样:

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

CompareValue是一个 RTL 函数，它根据两个操作数的相对值返回 -1、0 或 1。

将这些构建 block 输入 TStringList.CustomSort你的工作完成了。

MyStringList.CustomSort(CompareIDs);