Сортировка в StringList

[chui]

Здраствуйте. Нужно сделать сортировку в StringList, но Stringlist.Sorted:= true не подходит, т.к. необходимо сортировать, к примеру, только по символам с 3 по 6 каждого итема стринглиста. Как это сделать?

[Аватар]

А как бы делали сортировку массива символьных строк? Так же и стринглист, в качестве массива Strings

[eoln]

Или через CustomSort http://programmersforum.ru/showpost....35&postcount=3

[chui]

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

Или через CustomSort http://programmersforum.ru/showpost....35&postcount=3

Не совсем понял, как это использовать именно для данной задачи.



Пришла в голову другая идея. Переносим первые символы в конец строки, потом сортируем обычным sorted:= true, потом возвращаем символы на место. Сильно криво это будет?

[Аватар]

Сильно криво это будет?

Сильно. Там делов то:

  for i:=0 to List.Count-2 do
    for j:=i+1 to List.Count-1 do
      if AnsiCompareText(Copy(List.Strings[j],3,4),Copy(List.Strings[i],3,4))<0 then begin
        s:=List.Strings[i];
        List.Strings[i]:=List.Strings[j];
        List.Strings[j]:=s;
      end;

[Serge_Bliznykov]

Аватар, у TStringList есть метод Exchange, меняющий два элемента местами;

Swaps the position of two strings in the list.

procedure Exchange(Index1, Index2: Integer);

поэтому:

  for i:=0 to List.Count-2 do
    for j:=i+1 to List.Count-1 do
        if AnsiCompareText(Copy(List.Strings[j],3,4),Copy(List.Strings[i],3,4))<0 then List.Exchange(i,j);

[Аватар]

у TStringList есть метод Exchange, меняющий два элемента местами

Тем более, делов еще меньше стало

[evg_m]

Не совсем понял, как это использовать именно для данной задачи.

написать и подключить СВОЮ функция сравнения

a.CustomSort(@StringListCompareLengtnStrings);//пользовательская сортировка

после этого sorted:=true будет сортировать в соответствии с указанным правилом.

писать надо как-то так

      if strings[index1]<strings[index2] then result:=1
else if strings[index1]>strings[index2] then result:=-1
else if strings[index1]=strings[index2] then result:=0
else raise ;

с допиливанием до этого

т.к. необходимо сортировать, к примеру, только по символам с 3 по 6 каждого итема стринглиста.

[chui]

Спасибо всем огромное. Сделал так:

  for i:=0 to List.Count-2 do
    for j:=i+1 to List.Count-1 do
        if AnsiCompareText(Copy(List.Strings[j],3,4),Copy(List.Strings[i],3,4))<0 then List.Exchange(i,j);