Приватык!!! :) Помогите плиз с вопросом:

← →
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) а мне надо потом все что получил отсортировать БЕЗ ДОП БИБЛИОТЕК!!!!
Сатир ты меня не правильно понял

> minnic

Хорошо, давайте без классов. Для начала скажите - какие методы сортировки Вы знаете? Какой из них Вам больше всего подходит? На него и будем дальше ориентироваться.

А простое сравнеие строк и их перестановка разве не подходит.
Ведь сравнение происходит по таблице символов, а там всё по алфавиту. Единственная проблема может возникнуть если в слове смесь русских и английских символов, ведь массив русских символов разбит на два, но эта проблема разрешима.
If String1 < String2 then
begin
TempString := String1;
String1 := String2;
String2 := TempString;
end;

Могу выслать мой аналог OpenDialog для Pascal for DOS - там и диски выбираются и список файлов сортируется и даже по расширениям подцвечивать можно.

По существу:

1) Напиши свою функцию сравнения строк.
Дальше у тебя >=2 пути:

a) Считать все названия файлов в динамический список (см. Любой учебник по Паскалю), напиши процедуру обмена элементами списка. Наконец выбрать метод сортировки и используя заготовленные функции сравнения и обмена произвести сортировку.
b) Строить динамический список, включая каждое новое имя файла в надлежащую по порядку позицию.

К этому неплохо бы написать функцию быстрого выцарапывания очередного названия файла, что-то наподобие FileName(i) и разумеется завести переменную FileNamesCount.
Конкретного кода для Delphi у меня нет, но (см.начало сообщения) подобное я делал => работоспособная идея.

Приватык!!! :) Помогите плиз с вопросом: Найти похожие ветки