|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Удобный поиск файлов из Findfirst
идея была привести findfirst/next к удобному виду под delphi7
что получилось: - не надо объявлять ни одной переменной, минимализм - магическим образом работает рекурсивный поиск в глубину как это выглядит: PHP код:
Последний раз редактировалось Pyro, 22.01.2012 в 17:37. |
#2
|
||||
|
||||
Что-то в этом есть, конечно. Однако будет утечка памяти при использовании именно такой конструкции:
Код:
ListBox1.Items.Assign(List(Files('c:\'))); //' ListBox1.Items.Assign(List(Files('c:\*'))); ListBox1.Items.Assign(List(Files('c:\*.txt'))); ListBox1.Items.Assign(List(Files('c:\windows\**'))); ListBox1.Items.Assign(List(Files('c:\windows\**\'))); //' ListBox1.Items.Assign(List(Files('c:\windows\**\*'))); ListBox1.Items.Assign(List(Files('c:\windows\**\*.dll'))); Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#3
|
||||
|
||||
Сделать, чтоб ф-я интерфейс воротила, будет круто.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
|||
|
|||
чтоб ф-я интерфейс воротила
- с интерфейсами никогда не сталкивался Результат List - уничтожать кто будет - вобще надо бы, но так нагляднее Особенность была: писал с предположением, что в маске всегда будет звёздочка, поиск по точному имени не работал Последний раз редактировалось Pyro, 22.01.2012 в 16:43. |
#5
|
||||
|
||||
http://www.gamedev.ru/community/delp.../use_interface
Не забываем про GUID P.S. статья хреновинькая, но для начала пойдет. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 21.01.2012 в 16:47. |
#6
|
||||
|
||||
Код:
type TForm1 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject); begin SendMessage(ListBox1.Handle, LB_DIR, $3f, Integer(PChar('c:\Windows\System32\*.exe'#0))); end; Пишу программы за еду. __________________ |
#7
|
|||
|
|||
интерфейсы - так и не понял что они дадут
файл обновил, сейчас все тестовые строчки работают как надо, даже рекурсивный поиск по точному имени если повезёт, сделаю ещё поиск в ширину и поиск по всем дискам (*:\pagefile*, или по другому как-нибудь ) |