Сообщество Чайников

Вопрос

Есть код для подсчета всех файлов в директории (по маске '*.*'). Как задать маску для файлов, не имеющих расширений?

Ответ

из справки по F1:

var SearchRec:TSearchRec; Attr,Found,Count: Integer; Path:string; begin Count:=0; Atr:=faAnyFile AND (not (faDirectory OR faVolumeID)); //если каталоги не считаем path:='c:\test\*.*'; Found := FindFirst(Path, Attr, SearchRec); while Found = 0 do begin inc(count); Found := FindNext(SearchRec); end; FindClose(SearchRec); writeln('total files: ',count); end;

Файл без расширения — это файл, оканчивающийся на точку — маска '*.'.

Из конференции Expert_FAQ