 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Сортировка строковых значений как чисел, по возрастанию.... 
| Medved |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
Как отсортировать строковые значения (номера домов) по возрастанию, как числовые, причем в номерах домов могут быть как знаки, так и буквы
Например: 25/2, 27 А Строки сортируются следующим образом: 1 .. 11 .. 2 .. 26 и т.д. а надо так: 1 2 3 .. 11 .. 22 -------------------- |
|||
|
||||
Загрузка ...
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Добавь нужное количество нулей перед значением чтобы все значения были одинаковой разрядности - это отсортирует цифры, а вот с буквами я бы поступил так - сделал преобразование:
1 -> 001_ 3 -> 003_ 30 -> 030_ 11 -> 011_ 22 -> 022_ 3а -> 003a 3б -> 003б 123 ->123_ Закономерность уловили? - теперь сортировка строк любым алгоритмом отсортирует правильно, затем надо вернуть все изменения взад. -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Song |
|
|||
 Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
Загрузи в TStringList, там автомтическая сортировка есть. А вообще полезней самому - "пузырёк".
 (только в магазин сбегать надо) -------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Простой конечно, но очень уж долгий... -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Pegas |
|
|||
|
Unregistered |
Да нет, не получиться, если загрузить в TStringList, то отсортирует по алфавиту, а мне надо, чтобы отсортировала как числа.... Так что пока единственный правильный ответ дал Vit, я его уже реализовал... |
|||
|
||||
Дата 16.9.2002, 22:56 (| Song |
|
||||
|
Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
TStringList.CustomSort - и отсортирует как хочешь. -------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
||||
|
|||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Это точно! -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Medved |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
Перед Song-ом извиняюсь, попробовал, получилось.... Спасибо! -------------------- |
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Если не секрет, то какой алгоритм использовал для CustomSort?
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Medved |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=60997 -------------------- |
|||
|
||||
| Poseidon |
|
|||
 Delphi developer Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
Мдаааа. Medved, лучше поздно, чем никогда?
 -------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0525 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |