|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2021, 15:57 | #1 |
Форумчанин
Регистрация: 10.02.2021
Сообщений: 627
|
Двойная ссылка (для поиска: поиск папок в папке)
Вопрос такой. Когда в параметры процедуры по ссылке передается переменная которая сама является ссылкой - то в этом случае будет двойная ссылка (ссылка на ссылку), или все будет передана ссылка напрямую на переменную?
Показываю на примере кода процедуры, которая находит папки в папке. Выкладываю код, может кому пригодится. Буду хорошим человеком=)) Кто-то мне помог тут, кому-то я помогу Код:
|
23.05.2021, 19:08 | #2 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Как-то грубо
Код:
Код:
|
23.05.2021, 19:10 | #3 |
Форумчанин
Регистрация: 10.02.2021
Сообщений: 627
|
После брейка выполнится оператор ss.Add(s); а после эксита - нет
И тогда придется лишний булеан делать чтобы отловить была ли строка вставлена в середину списка, или нет |
24.05.2021, 01:54 | #4 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,872
|
Вставлять ProcessMessages на каждой итерации некоего цикла это перебор.
|
31.05.2021, 09:16 | #5 |
Пользователь
Регистрация: 04.04.2018
Сообщений: 28
|
Начать надо с того, что уже в Дельфи 7 функция IncludeTrailingBackslash() использовалась только для обратной совместимости, т.е., по русски говоря, безбожно устарела... И на кой ляд вообще трогать абстрактный класс TStrings?
Далее, даже для прошловековой Дельфи-6 тут чересчур много нагромождений... На кой ляд вообще нужна процедура SortAddStringToTStrings, если у класса TStringList есть свои методы Sort() и CustomSort()? Да, собственно, проще уж сразу сказать, чтобы список создавался сортированным. Код для Д7 Код:
Код:
Последний раз редактировалось D1973; 31.05.2021 в 09:20. |
31.05.2021, 19:40 | #6 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
А это чтобы вызывать, например, так "DirSearchDirSort('D:\', memo1.lines);". Но добавление сначала в "самосортирующийся" TStringList, а затем присвоение его содержимого визуальному компоненту, возможно, будет эффективнее.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Список папок в папке | Kronos913 | Общие вопросы Delphi | 6 | 11.02.2021 22:02 |
Двойная ссылка на Листы | dragonqwert | Microsoft Office Excel | 22 | 04.01.2012 18:04 |
Ссылка на книгу в другой папке | Brandon Skywalker | Microsoft Office Excel | 1 | 06.10.2011 07:58 |
Процедура поиска - необходимо организовать поиск по маске *.txt в папке Test | GvR | Общие вопросы Delphi | 3 | 04.11.2009 15:31 |
Microsoft Office Outlook : удаление папок в папке контакты | bufer | Софт | 0 | 05.12.2007 16:58 |