Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизПриватык!!! :) Помогите плиз с вопросом: Найти похожие ветки
← →
minnic (2002-11-02 20:19) [0]Допустим дано 4 слова: камень, гайка, дом, медведь.
Как вывести их по алфавиту(Програмный код, а не свойство компонентов)???
← →
Алексей Ким (2002-11-02 20:22) [1]открываем запылившийся учебник паскаля и видим....
очень хорошую штуку зовется ord()
← →
Юрий Зотов (2002-11-02 20:27) [2]Любой метод сортировки с использованием AnsiCompareText для сравнения строк.
← →
Anatoly Podgoretsky (2002-11-02 20:28) [3]Если проблемы с алгоритмами, то используем TStringList и его свойство Sort
← →
minnic (2002-11-02 20:29) [4]Большой сенкс
← →
mukha (2002-11-02 23:04) [5]В run-time создай TStringList, загрузи в него свои слова, отсортируй, а затем из TStringList верни обратно (откуда брал) и уничтожь TStringList.
← →
minnic (2002-11-03 02:38) [6]Не народ!!!
Слова не я загружаю!!! камень, гайка, дом, медведь - к примеру!!!
А вот мне надо отсортировать папки и файлы на C:\ не используя classes и StdCtrls
← →
Aleks1 (2002-11-03 04:29) [7]>minnic (03.11.02 02:38)
>Не народ!!!
>Слова не я загружаю!!! камень, гайка, дом, медведь - к >примеру!!!
>А вот мне надо отсортировать папки и файлы на C:\ не используя >classes и StdCtrls
Если "слова" ты не загружаешь, а "сортируешь папки", то - "Как, черт возьми"?
← →
Yegor Derevenets (2002-11-03 15:05) [8]А прочитать список папок (FindFirst, FineNext, FindClose)и сделать как говорит mukha не судьба?
← →
Сатир (2002-11-03 15:32) [9]запускаешь FAR, выбираешь диск С: нажимаешь
ctrl+F3 и получаешь уже отсортированый список по именам, ctrl+F4 - по расширениям,
ctrl+F5 - по времени изменения,
ctrl+F6 - по размеру,
ctrl+F7 - несортированый список,
ctrl+F8 - по времени создания,
ctrl+F9 - по времени доступа,
ctrl+F10 - по описанию,
ctrl+F11 - по владельцу
и нинада никакова паскаля разом с делфями
ЗЫ.;)
← →
minnic (2002-11-03 17:23) [10]Yegor Derevenets - mukha говорит использовать Tstringlist а это подключение доп. библиотек. Я так и делаю (FindFirst, FineNext, FindClose) а мне надо потом все что получил отсортировать БЕЗ ДОП БИБЛИОТЕК!!!!
Сатир ты меня не правильно понял
← →
Юрий Зотов (2002-11-03 17:38) [11]> minnic
Хорошо, давайте без классов. Для начала скажите - какие методы сортировки Вы знаете? Какой из них Вам больше всего подходит? На него и будем дальше ориентироваться.
← →
Zhirnov Maxim (2002-11-03 17:46) [12]А простое сравнеие строк и их перестановка разве не подходит.
Ведь сравнение происходит по таблице символов, а там всё по алфавиту. Единственная проблема может возникнуть если в слове смесь русских и английских символов, ведь массив русских символов разбит на два, но эта проблема разрешима.
If String1 < String2 then
begin
TempString := String1;
String1 := String2;
String2 := TempString;
end;
← →
Tano (2002-11-04 06:31) [13]Могу выслать мой аналог OpenDialog для Pascal for DOS - там и диски выбираются и список файлов сортируется и даже по расширениям подцвечивать можно.
По существу:
1) Напиши свою функцию сравнения строк.
Дальше у тебя >=2 пути:
a) Считать все названия файлов в динамический список (см. Любой учебник по Паскалю), напиши процедуру обмена элементами списка. Наконец выбрать метод сортировки и используя заготовленные функции сравнения и обмена произвести сортировку.
b) Строить динамический список, включая каждое новое имя файла в надлежащую по порядку позицию.
К этому неплохо бы написать функцию быстрого выцарапывания очередного названия файла, что-то наподобие FileName(i) и разумеется завести переменную FileNamesCount.
Конкретного кода для Delphi у меня нет, но (см.начало сообщения) подобное я делал => работоспособная идея.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.008 c