Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: CL | DM;

Вниз

Проверка в в FindFirst/FindNext.   Найти похожие ветки 

 
qwer-10   (2005-07-07 12:25) [0]

Как правильно построить такое выражение, чтобы не писать дополнительный if
с проверкой "(SRec.Name <> ".") and (SRec.Name <>"..")"

var
 SRec: TSerachRec;

if (SRec.Attr and faDirectory) = faDirectory) and (SRec.Name <> ".") and (SRec.Name <>"..") then

...


 
Digitman ©   (2005-07-07 12:29) [1]

где тут "дополнительный if" ?


 
palva ©   (2005-07-07 12:36) [2]

Дополнительный and можно не писать
if (SRec.Attr and faDirectory) = faDirectory) and (SRec.Name[1] <> ".")


 
palva ©   (2005-07-07 12:38) [3]

Хотя если имя начинается с точки... В юниксе это за ради бога.


 
Alexander Panov ©   (2005-07-07 13:33) [4]

Ты конечную цель своего вопроса скажи лучше.


 
Anatoly Podgoretsky ©   (2005-07-07 13:46) [5]

palva ©   (07.07.05 12:38) [3]
В Виндоус тоже не запрещено.



Страницы: 1 вся ветка

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
1-1120720921
nat
2005-07-07 11:22
2005.07.25
чтение данных из файла


4-1113825319
KarpUha
2005-04-18 15:55
2005.07.25
Wav в модем (Очередная)


3-1118830441
stud
2005-06-15 14:14
2005.07.25
помогите с компонентом для отображения текста и картинок (Д7)


11-1103636361
CSS
2004-12-21 16:39
2005.07.25
Аналог Application.ProcessMessages


4-1117276299
DeepProg
2005-05-28 14:31
2005.07.25
Drag&amp;Drop с помощью TWMNChitTest