![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
kominet |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
В общем есть массив
sBuffer:array of string; в котором хранится список имён файлов (например 123.doc) нужно создать список файлов из заданного каталога которых нет в массиве особенно интересует как мне записать в массив список файлов из заданного каталога |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата особенно интересует как мне записать в массив список файлов из заданного каталога См. пример из хелпа на FindFirst/FindNext ...Соответственно, точно так же находится и список файлов, отсутствующих в массиве... проходишь по всей папке с FindFirst + FindNext, и каждое найденное имя файла проверяешь на присутствие в массиве... Если НЕТ - то добавить в список... |
kominet |
![]()
Сообщение
#3
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
в догонку наверно совсем глупый(и немного не по теме) вопрос.. как мне сделать входной/выходной переменной в процедуре динамический массив??
сделал так: procedure DeleteResume(MyFiles:array of string); когда пытаюс SetLength(TempMyfiles,length(sBuf)+1); пишет чта несовместимость типов array и dynamic array?? |
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
type -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
kominet |
![]()
Сообщение
#5
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
Сенькью вери мятч!!
|
![]() ![]() |
![]() |
Текстовая версия | 8.07.2025 3:40 |