IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Список файлов заданного каталога?
kominet
сообщение 15.03.2007 14:49
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


В общем есть массив
sBuffer:array of string;
в котором хранится список имён файлов (например 123.doc)
нужно создать список файлов из заданного каталога которых нет в массиве

особенно интересует как мне записать в массив список файлов из заданного каталога
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
volvo
сообщение 15.03.2007 14:56
Сообщение #2


Гость






Цитата
особенно интересует как мне записать в массив список файлов из заданного каталога
См. пример из хелпа на FindFirst/FindNext ...

Соответственно, точно так же находится и список файлов, отсутствующих в массиве... проходишь по всей папке с FindFirst + FindNext, и каждое найденное имя файла проверяешь на присутствие в массиве... Если НЕТ - то добавить в список...
 К началу страницы 
+ Ответить 
kominet
сообщение 15.03.2007 17:46
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


в догонку наверно совсем глупый(и немного не по теме) вопрос.. как мне сделать входной/выходной переменной в процедуре динамический массив??
сделал так:
procedure DeleteResume(MyFiles:array of string);

когда пытаюс
SetLength(TempMyfiles,length(sBuf)+1);

пишет чта несовместимость типов array и dynamic array??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 15.03.2007 18:21
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


type
Tarray = array of integer;

procedure P(var a: Tarray);
begin
setlength(a, 3);
end;


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
kominet
сообщение 16.03.2007 23:00
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Сенькью вери мятч!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 8.07.2025 3:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"