Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c