VPF::Sort в TStringList - Форум программистов

demm

Дата 19.7.2007, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.7.2007

Репутация: нет
Всего: нет

TStringList содержит:
1-.xlsn
1-.xlso
1.xlsn
1.xlso

после сортировки списка на выходе получается
1.xlsn
1-.xlsn
1.xlso
1-.xlso

а ведь должно быть:
1.xlsn
1.xlso
1-.xlsn
1-.xlso

Почему так получается и как это можно исправить?

volvo877

Дата 19.7.2007, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116

Цитата(demm @ 19.7.2007, 10:52

)

Почему так получается и как это можно исправить?

Получается так потому, что строки в методе Sort сравниваются через AnsiCompareStr... А исправить - использованием вместо стандартного Sort-а метода CustomSort со своей функцией сравнения:

Код


function SortProc(List: TStringList; Index1, Index2: Integer): Integer;
begin
     with List do
     if integer(Objects[Index1])=integer(Objects[Index2])
        then result:=0
      else
      if integer(Objects[Index1])<integer(Objects[Index2])
         then result:=-1
       else
       if integer(Objects[Index1])>integer(Objects[Index2])
          then result:=1;
end;

...
  SL.CustomSort(SortProc);
...

demm

Дата 19.7.2007, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.7.2007

Репутация: нет
Всего: нет

Спасибо за ответ, но нашел где-то другое решение:

Код


var
  OldProcA:Pointer;
  OldProcW:Pointer;
...
procedure GlobalSetStringSort;
  procedure _CompareStringA; register;
  asm
    or [esp+8],SORT_STRINGSORT;
    jmp OldProcA
  end;
  procedure _CompareStringW; register;
  asm
    or [esp+8],SORT_STRINGSORT;
    jmp OldProcW
  end;
  function ReplaceProc(OldProc, NewProc:Pointer):Pointer;
  var
    Addr:^PPointer;
  begin
    Addr:=@PChar(OldProc)[2];
    Result:=Addr^^;
    Addr^^:=NewProc;
  end;
begin
  OldProcW:=ReplaceProc(@CompareStringW,@_CompareStringW);
  OldProcA:=ReplaceProc(@CompareString,@_CompareStringA);
  ReplaceProc(@CompareStringA,@_CompareStringA);
end;
...
...
Procedure MainProc;
GlobalSetStringSort;
...
St.Sort;
...

P.S: т.е. ко всей программе включаем нормальную сортировку используя SORT_STRINGSORT.

Это сообщение отредактировал(а) demm - 19.7.2007, 22:42

Matematik

Дата 31.1.2008, 01:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

demm, спасибо
Несколько дней не мог понять почему неправильно сортирует StringList

Я так понимаю CodeGear (Borland) не считает это ошибкой, типа так и должно быть.
http://qc.codegear.com/wc/qcmain.aspx?d=5705
Жесть!

fgroup

Дата 13.3.2008, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Попробовал это решение для ситуации описанной в ссылке
http://qc.codegear.com/wc/qcmain.aspx?d=5705

оно ее не решает :(
Почему?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »