[JustProSkill]

Сообщение от cotseec

для чего в CustomSort использовать IndexOf? (если не изменяет память IndexOf рекомендуется использовать на УЖЕ отсортированном списке)
в функцию типа TStringListSortCompare передается два индекса и список, задача функции сравнить всего два элемента (их индексы и где они содержатся имеются в функции) и выдать результат их сравнения

Я знаю как работает эта функция.
Сейчас сделал так:
записываю исходную строку в СтрингЛист, сортирую

Код:

   if(Get_Weight_Hand(List[Index1][1])<Get_Weight_Hand(List[Index2][1]))then
     Result:=1;

Get_Weight_Hand возвращает силу руки(число) простым if()then
время работы без по моему алгоритму 22 сек, через сорт стринглист 118