Отличие файла от каталога

← →
Karburator (2003-08-25 21:21) [0]

Помогите, как отличить является ли найденное файлом или каталогом (атрибут faDirectory не помогает)

мой код:
procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec: TSearchRec;
begin
if findfirst("c:\test\*", faDirectory, SearchRec)=0 then // нужны тока папки
caption:="*"+fStru.Name;
while (findnext(SearchRec)=0) do
caption:=caption+"*"+fStru.Name;
findclose(fStru);
end;

← →
Романов Р.В. (2003-08-25 21:24) [1]

в FAQ

← →
Chris (2003-08-26 00:41) [2]

> Романов Р.В.
Нехорошо... Если уж посылаешь на три буквы, то посылай конкретнее, например http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

← →
Anatoly Podgoretsky (2003-08-26 09:37) [3]

Именно атрибут faDirectory и помогает, но ты видимо не знаком с основами двоичной математики, с логическими операциями, но как сказали посмотри в местное FAQ и будет счстье в виде копирования готового кода.

Отличие файла от каталога Найти похожие ветки