0

Есть строки в Memo1.Text такого вида:

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

Как отсортировать строки по первым словам, по длине слова - от большего к меньшему, то есть чтобы на выходе получить результат:

протащить - 2 повторов
принять - 3 повторов
способ - 8 повторов
год - 14 повторов
и - 15 повторов
2
  • 2
    Не нужно добавлять все возможные дельфийские метки, если вопрос общий и не касается особенностей версии (если дело может касаться юникода, то, наверное, стоит указывать одну из xe)
    – MBo
    Commented 22 дек. 2020 в 4:34
  • @MBo, В преть буду соблюдать это правило. Благодарна за подсказку. Commented 22 дек. 2020 в 11:12

1 ответ 1

3

У 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;
1
  • Спасибо огромное. Оказывается решение очень простое. Обязательно изучу код что бы разобраться. Commented 22 дек. 2020 в 11:11

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.