Установка нескольких атрибутов сразу

[Shouldercannon]

Встала задача установки сразу нескольких атрибутов файлу, например: Файл только для чтения, Скрытый файл, Системный файл, Сжатый файл.
Атрибуты задаются через CheckBox's.
1. Куда поместить список всех выбранных атрибутов через CheckBox's?
2. Как их применить к файлу?
В ручную это будет так

FileSetAttr('test.txt', faReadOnly or faHidden or faSysFile or faArchive);

[Daramant]

1. Куда поместить список всех выбранных атрибутов через CheckBox's?

Видимо так:

int attrs = 0;
if (checkbox1.Checked)
    attrs = attrs or faReadOnly;
if (checkbox2.Checked)
    attrs = attrs or faHidden;
...
FileSetAttr('test.txt', attrs);

[Shouldercannon]

Возникла проблема при показе оповещения, в котором должен быть выведен список установленных атрибутов. Когда я задавал только один атрибут я делал так

          // 0 - атрибут изменён, 1 - не удалось изменить атрибут
          if FileSetAttr('file.txt', attr) = 0 then
          begin
            case attr of
            0: attr := 'Обычный файл';
            1: attr := 'Файл только для чтения';
            2: attr := 'Скрытый файл';
            4: attr := 'Системный файл';
            8: attr := 'Дисковод метка тома';
            16: attr := 'Папка или каталог';
            32: attr := 'Файл был изменен после последнего резервного копирования';
            64: attr := 'Ссылка или ярлык';
            128: attr := 'Сжатый файл';
            end;

            ShowMessage('Файлу "file.txt" установлен атрибут "' + attr + '"');
          end

Теперь при установке нескольких атрибутов он стал бесполезен.

[Daramant]

Теперь при установке нескольких атрибутов он стал бесполезен.

Теперь, получается, необходимо делать так:

if (attr and 0 = 0)
  'Обычный файл';
if (attr and 1 = 1)
  'Файл только для чтения';
...

Строки из каждого условия можно собрать в список и вывести.

[Shouldercannon]

    // 0 - атрибут изменён, 1 - не удалось изменить атрибут
    if FileSetAttr(txt1, StrToInt(txt2)) = 0 then
    begin
      if (StrToInt(txt2) and 0) <> 0 then s := 'Обычный файл';
      if (StrToInt(txt2) and 1) <> 0 then s := s + ', ' + 'Файл только для чтения';
      if (StrToInt(txt2) and 2) <> 0 then s := s + ', ' + 'Скрытый файл';
      if (StrToInt(txt2) and 4) <> 0 then s := s + ', ' + 'Системный файл';
      if (StrToInt(txt2) and 8) <> 0 then s := s + ', ' + 'Дисковод метка тома';
      if (StrToInt(txt2) and 16) <> 0 then s := s + ', ' + 'Папка или каталог';
      if (StrToInt(txt2) and 32) <> 0 then s := s + ', ' + 'Файл был изменен после последнего резервного копирования';
      if (StrToInt(txt2) and 64) <> 0 then s := s + ', ' + 'Ссылка или ярлык';
      if (StrToInt(txt2) and 128) <> 0 then s := s + ', ' + 'Сжатый файл';

      if Copy(s, 1, 1) = ',' then s := Copy(s, 3, Length(s));

      ShowMessage('Файл "' + ExtractFileName(txt1) + '" по адресу "' + ExtractFilePath(txt1) + '" установлен атрибут "' + s + '"');
    end

Если устанавливаю атрибут Обычный файл или Обычный файл + какой либо другой атрибут, то в ShowMessage Обычный файл не показывается (пустота), сам атрибут применяется.

[Daramant]

Если устанавливаю атрибут Обычный файл или Обычный файл + какой либо другой атрибут, то в ShowMessage Обычный файл не показывается (пустота), сам атрибут применяется.

Получается, т.к. (0 and 0) <> 0 всегда дает false.
Нужно:

if (StrToInt(txt2) and 0) = 0 then s := 'Обычный файл';

P.S. Альтернативная проверка для других условий:

...
if (StrToInt(txt2) and 1) = 1 then s := s + ', ' + 'Файл только для чтения';
if (StrToInt(txt2) and 2) = 2 then s := s + ', ' + 'Скрытый файл';
...

Added:
Или можно написать функцию:

function bool IsAttributeSpecified(int value, int attr)
begin
   Result := value and attr = attr;
end;

[Shouldercannon]

Издевательство.

      if (StrToInt(txt2) and 0) = 0 then s := 'Обычный файл';
      if (StrToInt(txt2) and 1) = 1 then s := s + ', ' + 'Файл только для чтения';
      if (StrToInt(txt2) and 2) = 2 then s := s + ', ' + 'Скрытый файл';
      if (StrToInt(txt2) and 4) = 4 then s := s + ', ' + 'Системный файл';
      if (StrToInt(txt2) and 8) = 8 then s := s + ', ' + 'Дисковод метка тома';
      if (StrToInt(txt2) and 16) = 16 then s := s + ', ' + 'Папка или каталог';
      if (StrToInt(txt2) and 32) = 32 then s := s + ', ' + 'Файл был изменен после последнего резервного копирования';
      if (StrToInt(txt2) and 64) = 64 then s := s + ', ' + 'Ссылка или ярлык';
      if (StrToInt(txt2) and 128) = 128 then s := s + ', ' + 'Сжатый файл';

Атрибут Обычный файл показывается даже если CheckBox1 (Обычный файл) не выделен.

При получении атрибута проблем нет, всё правильно выводится

var
  attr: Integer;
  s: string;
begin
  attr := FileGetAttr(Edit1.Text);
  if (attr and 0) <> 0 then s := 'Обычный файл';
  if (attr and 1) <> 0 then s := s + ', ' + 'Файл только для чтения';
  if (attr and 2) <> 0 then s := s + ', ' + 'Скрытый файл';
  if (attr and 4) <> 0 then s := s + ', ' + 'Системный файл';
  if (attr and 8) <> 0 then s := s + ', ' + 'Дисковод метка тома';
  if (attr and 16) <> 0 then s := s + ', ' + 'Папка или каталог';
  if (attr and 32) <> 0 then s := s + ', ' + 'Файл был изменен после последнего резервного копирования';
  if (attr and 64) <> 0 then s := s + ', ' + 'Ссылка или ярлык';
  if (attr and 128) <> 0 then s := s + ', ' + 'Сжатый файл';

  if Copy(s, 1, 1) = ',' then s := Copy(s, 3, Length(s));

  ShowMessage('Файл "' + ExtractFileName(Edit1.Text) + '" по адресу "' + ExtractFilePath(Edit1.Text) + '" имеет атрибут "' + s + '"');

А при установке косячит.

[Daramant]

Атрибут Обычный файл показывается даже если CheckBox1 (

(0 and 0) <> 0 всегда дает false.
(0 and 0) = 0 всегда дает true.

Тут надо использовать какое-то другое условие.
faAnyFile - это любой файл, даже каталог, поэтому этот атрибут можно вообще опустить.