Работа с Директориями

← →
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&#133

← →
{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]

Народ !
Он обьявить то даст но ... работать не будет. Это системная переменная .
Такчто в принципе да даже не впринципе ! ОНА тама не нужна !
Всем спасибо.

>Топ исчерпан.

Тогда не следует пороть чушь в заключительном посте. Достаточно было ограничиться Всем спасибо.

Работа с Директориями Найти похожие ветки