Текущий архив: 2003.09.08;
Скачать: CL | DM;
Вниз
Отличие файла от каталога Найти похожие ветки
← →
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 и будет счстье в виде копирования готового кода.
Страницы: 1 вся ветка
Текущий архив: 2003.09.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
