如何对含数字的TStringList条目正确排序并还原原格式？

在Delphi开发中，使用TStringList.Sort对ClientX;（X为数字）格式的条目排序时，数字会被当作文本处理，导致排序结果不符合数字逻辑（例如得到Client1;、Client12;、Client3;，而非正确的Client1;、Client3;、Client12;）。现有代码能提取数字排序，但无法还原为原格式并更新数据库，以下是更高效的实现方案：

用户现有代码问题分析 #

用户原代码存在以下缺陷：

• 字符串替换目标为Cliente（带e），但原数据前缀是Client，导致数字提取失败
• 拆分条目后无法关联原格式，最终保存的是纯数字而非ClientX;格式
• 创建多个TStringList，增加不必要的内存开销

原代码示例：

var
  Database, DBResultado, DBAux: TStringList;
  Aux,Aux2: string;
  i, Num, Reserva: integer;
begin
  Memo.Clear;
  Database := TStringList.Create;
  DBResultado := TStringList.Create;
  DBAux := TStringList.Create;
  Database.LoadFromFile('DATABASEPATH');


  for I := 0 to Database.Count - 1 do
  begin
    Aux := StringReplace(Database[i], 'Cliente', '', [rfReplaceAll]);
    Aux := StringReplace(Aux, ';', '', [rfReplaceAll]);
    DBResultado.Add(FormatFloat('00000', StrToInt(Aux)));
  end;
  DBResultado.Sort;
  Memo.Lines.Add(DBResultado.Text);

  for i := 0 to Database.Count - 1 do
  begin
    Aux2 := IntToStr(StrToInt(DBResultado[i]));
    DBAux[i] := Aux2;
  end;
  Memo.clear;
  Memo.Lines.Add(DBAux.Text);

  DBResultado.SaveToFile('DATABASEPATH');
end;

原数据库示例：

Client1;
Client65;
Client13;
etc...

期望排序结果：

Client1;
Client13;
Client65;
etc...

最优解决方案：自定义排序函数 #

通过TStringList.CustomSort方法，使用自定义比较函数直接对原条目排序，无需拆分还原，一步完成排序并保存。

步骤1：编写数字提取函数（可选优化） #

该函数从条目中提取数字部分，兼容不同前缀或字符干扰：

function ExtractClientNumber(const S: string): Integer;
var
  i: Integer;
  NumStr: string;
begin
  NumStr := '';
  for i := 1 to Length(S) do
  begin
    if S[i] in ['0'..'9'] then
      NumStr := NumStr + S[i];
  end;
  Result := StrToIntDef(NumStr, 0);
end;

步骤2：编写自定义比较函数 #

该函数对比两个条目中的数字大小，实现数字逻辑排序：

function CompareClientItems(List: TStringList; Index1, Index2: Integer): Integer;
var
  Num1, Num2: Integer;
begin
  Num1 := ExtractClientNumber(List[Index1]);
  Num2 := ExtractClientNumber(List[Index2]);
  
  if Num1 < Num2 then
    Result := -1
  else if Num1 > Num2 then
    Result := 1
  else
    Result := 0;
end;

步骤3：主程序中使用自定义排序 #

直接加载原数据，排序后保存，无需额外处理：

var
  Database: TStringList;
begin
  Memo.Clear;
  Database := TStringList.Create;
  try
    Database.LoadFromFile('DATABASEPATH');
    // 应用自定义排序
    Database.CustomSort(CompareClientItems);
    // 显示排序结果
    Memo.Lines.AddStrings(Database);
    // 保存回原文件
    Database.SaveToFile('DATABASEPATH');
  finally
    Database.Free;
  end;
end;

方案优势 #

• 高效简洁：无需拆分原数据，直接对TStringList排序，减少字符串操作步骤
• 兼容性强：数字提取函数可兼容不同前缀或格式干扰，鲁棒性更高
• 内存友好：仅使用一个TStringList，避免不必要的内存占用
• 结果准确：直接保留原格式，排序后直接保存即可得到期望的ClientX;条目

内容的提问来源于stack exchange，提问作者Andrei Zx