Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.03.2008, 23:24   #11
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Altera, ну вам просто повезло блин.
Мне такая сортировка понадобилась буквально сегодня. Маленькую программулину для своих в офисе делаю, вот тож отсортировать надо списачек. Ну вот, сделал:
Сортировка.zip

ЗЫ: Если то, что я вам предлагаю, подходит, то вам, Altera, реально повезло. Вот так просто код вам писать никто, пожалуй бы, не стал. А готовый наврят-ли есть. Как правило хватает стандартной сортировки. Бывает же.

Последний раз редактировалось Sibedir; 04.03.2008 в 23:30.
Sibedir вне форума Ответить с цитированием
Старый 04.03.2008, 23:46   #12
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Гы... как нистранно в интернете алгоритмов сортировки ( чисел ) уйма. И кто вам мешает подменить в них булевые операции на свои функции булевого типа, которые сравнивали бы по вашим критериям входящие данные.
BOBAH13 вне форума Ответить с цитированием
Старый 04.03.2008, 23:56   #13
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Цитата:
Сообщение от BOBAH13 Посмотреть сообщение
Гы... как нистранно в интернете алгоритмов сортировки ( чисел ) уйма. И кто вам мешает подменить в них булевые операции на свои функции булевого типа, которые сравнивали бы по вашим критериям входящие данные.
Ещё более странно, что в Windows есть функция qsort()... Даже писать ничего не нужно...
B_N вне форума Ответить с цитированием
Старый 05.03.2008, 06:29   #14
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

2 BOBAH13
Цитата:
в интернете алгоритмов сортировки ( чисел ) уйма
Алгоритм сортировки - это один цикл, который за 2 минуты пишется. Копатся ради такого в нэте я никогда не стану.
Цитата:
кто вам мешает подменить в них булевые операции на свои функции булевого типа, которые сравнивали бы по вашим критериям входящие данные
Никто не мешает. Просто в данном конкретном случае одной функцией булевого типа не обойдешся. Здесь нужно разбирать строку по частям, и чтобы работала моя сортировка как мне надо. Искать чужие решения и тестить их на пригодность мне в лом. А свою сортировку я за час с лишним написал. А то о чем спрашивал топикстартер, очень похоже на мой вариант.

2 B_N
B_N, qsort - это API-функция? В нэте все примеры только на Си.
К тому же:
Цитата:
Функция qsort выполняет алгоритм быстрой сортировки, чтобы
отсортировать массив из num элементов, каждый элемент размером
width байт. Аргумент base является указателем на базу массива,
который нужно отсортировать. Функция qsort перезаписывает этот
массив с отсортированными элементами.
Аргумент compare является указателем на процедуру, постав-
ляемую пользователем, которая сравнивает два элемента массива и
возвращает значение, определяющее их отношение.
Функция qsort может вызывать процедуру compare один или
несколько раз в процессе сортировки, передавая при каждом вызове
указатели на два элемента массива. Процедура должна сравнивать
элементы, а затем возвращать одно из следующих значений
Исходя из выше сказанного функция qsort отсортирует список иначе, нежели моя функция. Или это не так, B_N?

Последний раз редактировалось Sibedir; 05.03.2008 в 06:36.
Sibedir вне форума Ответить с цитированием
Старый 05.03.2008, 08:15   #15
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Странно, а равзе в конце концов после "разбора строки как мне нужно" результатом не будет значение сравнение двух елементов сортировки ( списка ) тобиш число 0 или 1 или же булевый тип Да и еще раз занялись программированием поверьте С++ и С надо знать, хоть азы.
BOBAH13 вне форума Ответить с цитированием
Старый 05.03.2008, 08:32   #16
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Цитата:
Сообщение от BOBAH13
Странно, а равзе в конце концов после "разбора строки как мне нужно" результатом не будет значение сравнение двух елементов сортировки ( списка ) тобиш число 0 или 1 или же булевый тип
А я так и сделал. Разбил строки на символы и числа и упорядочил их путем сравнения. Не думаю, что функция сравнения такая сложная, что надо использовать готовые решения. Это дело нескольких минут. А вот готовой функции разбиения строки не нашел. Да и не искал, если чесно. Не вижу смысла. Время затраченное на поиск ~ времени написания кода.
Так что ваше замечание я не понял. Функция работает, время написания - около часа. Что не нравится?
Цитата:
Сообщение от BOBAH13
раз занялись программированием поверьте С++ и С надо знать, хоть азы
Согласен, обязательно займусь изучением, когда будет побольше свободного времени. А пока вполне хватает Delphi.

ЗЫ: Чтобы начать изучать что-то новое, для этого нужно в первую очередь установить: компенсируют ли новые знания, затраченное время.
ИМХО: Цель определяет средства. Не всегда цель оправдывет средства.

Последний раз редактировалось Sibedir; 05.03.2008 в 08:40.
Sibedir вне форума Ответить с цитированием
Старый 05.03.2008, 09:48   #17
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Устранил маленький глюк связанный с заглавными и маленькими буквами:
Сортировка.zip

В общей сложности ~ 1:30 на все.
Sibedir вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функции сохранения TStringList в Ini-файл Air Свободное общение 0 29.06.2008 22:37
Вопрос насчёт класса TStringList!!! KAMENYKA Компоненты Delphi 4 06.12.2007 14:49
TStringList nimf Общие вопросы Delphi 5 15.11.2007 14:44
Обновление списка TStringList eXa Компоненты Delphi 3 11.08.2007 16:24
Класс TStringList Pblog Обсуждение статей 0 27.05.2007 02:13