Сортировка по VALUE в ValueListEditor

[Pcrepair]

Добрый день. Есть процедура,которая сортирует пару KEY--VALUE(слово--число) по значению VALUE и передает результат в ValueListEditor, для просмотра

procedure SortVLE;
(*---------------------------*)
function MyCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := AnsiCompareStr(List.ValueFromIndex[Index2], List.ValueFromIndex[Index1])
end;
(*---------------------------*)

var
  fSL : TStringList;
begin
  fSL := TStringList.Create;
  try
    fSL.Text := MainForm.ValueListEditor1.Strings.Text;
    fSL.CustomSort(@MyCompare);
    MainForm.ValueListEditor1.Strings.Text := fSL.Text;
  finally
    FreeAndNil(fSL);
  end
end;

Но сортировка идет немного не так как нужно, в частности:
рпрпропопр--99
пиропиррор--87
прррпррппр--33
титититьит--223
рпрпрпрпрр--12

хотя строка титититьит--223 в ValueListEditor должна быть наверху так как 223 больше чем 99

Вопрос: где ошибка и как поправить?

[Аватар]

Преобразуй в integer и сравнивай по значению, а не строки. Строка '99' больше '223', а вот в числовом виде наоборот

[Pcrepair]

так а функцию какую? использовать? что то непонятно

[Аватар]

А что, никогда в integer не преобразовывал? StrToInt

[Pcrepair]

типа того?
AnsiCompareStr(StrToInt(List.ValueF romIndex[Index2]), StrToInt(List.ValueFromIndex[Index1]))

но function AnsiCompareStr ( const String1, String2 : string ) : Integer; сравнивает строки и выдает число -1 или 0 или 1

непонятно

[Аватар]

На AnsiCompareStr свет клином сошелся? IF ... ELSE и в Result -1, 0 или 1

[Pcrepair]

это типа: AnsiCompareStr(List.ValueFromIndex[Index2], List.ValueFromIndex[Index1]); слишком просто и не то что нужно?

а нужно усложнить, тут дело в том что в СПИСОК передается из ValueListEditor1 пара роророро=44 (точнее много таких пар), их надо в списке отсортировть по число и вернуть обратно в ValueListEditor1
не испортив пары

так что тут придумать? можно..
что то никак не пойму, может в списке в принципе нельзя отсортировать как надо?

[Аватар]

Result:=CompareValue(StrToInt(List.ValueFromIndex[Index2]),StrToInt(List.ValueFromIndex[Index1]));

Предвидя следующий вопрос - добавить юнит Math

[Pcrepair]

ну вот, теперь работает
большое спасибо, глубоко же эта функция заныкалась в юнит Math, сразу и не понятно где искать.

а может там есть функция для сравнения нецелых чисел, типа пропрп=3,45
не INTEGER а Real или в общем дробное число????

[eval]

вы бы про эту почитали, может и она умеет..