Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];
Вниз
Работа с Директориями Найти похожие ветки
← →
Firefly © (2007-04-19 13:51) [0]Добрый день мастера !
Возникли два вопроса (по работе с директориями):
1) Как проверить что папка не пуста ?
2) Если папка не пуста :
2.1 Построить список имен.
Написал парсер для *.xml сообщений теперь надо дергать в процесс все файлы из папки /in
заранее благодарен !
← →
Плохиш © (2007-04-19 13:53) [1]Сумма оплаты не озвучена к этому техзаданию...
← →
ANB © (2007-04-19 13:54) [2]
> 1) Как проверить что папка не пуста ?
> 2) Если папка не пуста :
> 2.1 Построить список имен.
FindFirst, FindNext + F1. Там даже примеры есть.
← →
Firefly © (2007-04-19 14:00) [3]2 ANB
Спасибо буду копать
← →
firefly © (2007-04-19 14:01) [4]2 all
Народ вот что по этому поводу нашел, правьте пользуйтесь!
uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec: TSearchRec;
begin
if FindFirst("C:\WINDOWS\*.INI", faAnyFile and not
(faVolumeID or faDirectory), SearchRec) = 0 then
begin
repeat
// Here we process each fond file.
// Its info is in SearchRec.
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
← →
firefly © (2007-04-19 14:08) [5]забыл кинуть
type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData; // Additional information
en
← →
Юрий Зотов © (2007-04-19 15:44) [6]if FindFirst(...) = 0 then
try
repeat
...
until FindNext(SearchRec) <> 0;
finally
FindClose(SearchRec);
end;
← →
Kolan © (2007-04-19 15:45) [7]> TSearchRec = record
Ты че её сам объявил?
← →
{RASkov} (2007-04-19 16:21) [8]> [7] Kolan © (19.04.07 15:45)
Не даст IDE так сделать....
← →
Германн © (2007-04-19 16:26) [9]
> {RASkov} (19.04.07 16:21) [8]
>
> > [7] Kolan © (19.04.07 15:45)
>
> Не даст IDE так сделать....
>
Да ну?
← →
Kolan © (2007-04-19 16:28) [10]наверно ругнется что FindFirst хочет другой TSearchRec…
← →
{RASkov} (2007-04-19 16:40) [11]> [9] Германн © (19.04.07 16:26)
Попробуй... потом расскажешь :) Может и я ошибаюсь...:(
← →
Германн © (2007-04-19 17:37) [12]
> {RASkov} (19.04.07 16:40) [11]
>
> > [9] Германн © (19.04.07 16:26)
>
> Попробуй... потом расскажешь :) Может и я ошибаюсь...:(
>
А чего пробовать то? Объявить тип с таким именем? Без проблем :-)
← →
{RASkov} (2007-04-19 17:54) [13]> [12] Германн © (19.04.07 17:37)
Но переменную "нового" типа не разрешит использовать в FindFirst :)
← →
firefly © (2007-04-20 07:15) [14]Народ !
Он обьявить то даст но ... работать не будет. Это системная переменная .
Такчто в принципе да даже не впринципе ! ОНА тама не нужна !
Всем спасибо.
← →
MsGuns © (2007-04-20 08:17) [15]>firefly © (20.04.07 07:15) [14]
>Это системная переменная .
Да ну ?
← →
firefly © (2007-04-20 09:02) [16]MsGuns ©
Топ исчерпан.
← →
ЮЮ © (2007-04-20 09:09) [17]>Топ исчерпан.
Тогда не следует пороть чушь в заключительном посте. Достаточно было ограничиться Всем спасибо.
← →
firefly © (2007-04-20 09:53) [18]Ругаться не буду спасибо Юрий , MsGuns , {RASkov} , Германн , Kolan ©.
Критика тоже иногда бывает полезна.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.047 c
