主页 / 问题 / 1222169
Accepted
Татьяна
Asked:2021-12-22 07:25:51 +0800 CST2021-12-22 07:25:51 +0800 CST

按升序对行进行排序

  • 772

有这样的行Memo1.Text：

способ - 8 повторов
протащить - 2 повторов
год - 14 повторов
принять - 3 повторов
и - 15 повторов

如何按第一个单词，按单词长度对行进行排序 - 从最大到最小，即在输出处获得结果：

протащить - 2 повторов
принять - 3 повторов
способ - 8 повторов
год - 14 повторов
и - 15 повторов
delphi

1 个回答

  1. Best Answer

    TStringList（唉，不是TStrings）有一个CustomSort. 比较函数被传递给它。

    在这个函数中，你需要选择字符串的第一个单词并比较它们的长度。理想情况下，只需找到空间的 Pos 就足够了：

    function SortCompare(AList: TStringList; Index1, Index2: integer): integer;
begin
  Result := Pos(' ', AList[Index2]) - Pos(' ', AList[Index1]);
end;

procedure TForm1.Button43Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Assign(Memo1.Lines);
    sl.CustomSort(SortCompare);
    Memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end;
end;
    • 3

相关问题