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

Вниз

Записать атрибуты файла   Найти похожие ветки 

← →
UserUserov   (2004-10-21 18:47) [0]

Что я делаю не так?

type
TAttrRec = record
Archive : Boolean;
ReadOnly: Boolean;
Hidden  : Boolean;
SysFile : Boolean;
end;
................
................
procedure WAttr(AttrRec: TAttrRec);
var
attr_: Integer;
begin
attr_ := 0;
If AttrRec.Archive then attr_ := (attr_ and faArchive);
If AttrRec.ReadOnly then attr_ := (attr_ and faReadOnly);
If AttrRec.Hidden then attr_ := (attr_ and faHidden);
If AttrRec.SysFile then attr_ := (attr_ and faSysFile);
FileSetAttr(FileName, attr_);
end;
.................
.................

---

← →
clickmaker ©   (2004-10-21 18:48) [1]

or вместо and

---

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

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

Наверх

Память: 0.46 MB
Время: 0.048 c