Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с Директориями [D7, WinXP]

Firefly © (2007-04-19 13:51:00)
Добрый день мастера !
Возникли два вопроса (по работе с директориями):
1) Как проверить что папка не пуста ?
2) Если папка не пуста :
2.1 Построить список имен.

Написал парсер для *.xml сообщений теперь надо дергать в процесс все файлы из папки /in

заранее благодарен !

firefly (2007-04-20 09:53:00) [1]
Ругаться не буду спасибо Юрий , MsGuns , {RASkov} , Германн , Kolan ©.
Критика тоже иногда бывает полезна.

ЮЮ (2007-04-20 09:09:00) [2]
>Топ исчерпан.

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

firefly (2007-04-20 09:02:00) [3]
MsGuns ©

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

MsGuns (2007-04-20 08:17:00) [4]
>firefly © (20.04.07 07:15) [14]
>Это системнаяпеременная .

Да ну ?

firefly (2007-04-20 07:15:00) [5]
Народ !
Он обьявить то даст но ... работать не будет. Это системная переменная .
Такчто в принципе да даже не впринципе ! ОНА тама не нужна !
Всем спасибо.

{RASkov} (2007-04-19 17:54:00) [6]
> [12] Германн © (19.04.07 17:37)

Но переменную "нового" типа не разрешит использовать в FindFirst :)

Германн (2007-04-19 17:37:00) [7]

> {RASkov} (19.04.07 16:40) [11]
>
> > [9] Германн © (19.04.07 16:26)
>
> Попробуй... потом расскажешь :) Может и я ошибаюсь...:(
>

А чего пробовать то? Объявить тип с таким именем? Без проблем :-)

{RASkov} (2007-04-19 16:40:00) [8]
> [9] Германн © (19.04.07 16:26)

Попробуй... потом расскажешь :) Может и я ошибаюсь...:(

Kolan (2007-04-19 16:28:00) [9]
наверно ругнется что FindFirst хочет другой TSearchRec…

Германн (2007-04-19 16:26:00) [10]

> {RASkov} (19.04.07 16:21) [8]
>
> > [7] Kolan © (19.04.07 15:45)
>
> Не даст IDE так сделать....
>

Да ну?

{RASkov} (2007-04-19 16:21:00) [11]
> [7] Kolan © (19.04.07 15:45)

Не даст IDE так сделать....

Kolan (2007-04-19 15:45:00) [12]
> TSearchRec = record

Ты че её сам объявил?

Юрий Зотов (2007-04-19 15:44:00) [13]
if FindFirst(...) = 0 then
try
repeat
...
until FindNext(SearchRec) <> 0;
finally
FindClose(SearchRec);
end ;

firefly (2007-04-19 14:08:00) [14]
забыл кинуть

type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData; // Additional information
en

firefly (2007-04-19 14:01:00) [15]
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:00:00) [16]
2 ANB

Спасибо буду копать

ANB (2007-04-19 13:54:00) [17]

> 1) Как проверить что папка не пуста ?
> 2) Если папка не пуста :
> 2.1 Построить список имен.

FindFirst, FindNext + F1. Там даже примеры есть.

Плохиш (2007-04-19 13:53:00) [18]
Сумма оплаты не озвучена к этому техзаданию...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »