Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
brauberg1989
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 5
#1

Ошибка при работе с атрибутами файлов - Delphi

03.05.2011, 10:27. Просмотров 430. Ответов 4
Метки нет (Все метки)

Работаю с атрибутами файлов. Вот сам код:
Delphi
1
2
3
4
5
6
7
8
9
var ar,sy,re,hi:string;
begin
   if CheckBox4.Checked=True then ar:='faArchive' else ar:='not faArchive';
   if CheckBox3.Checked=True then sy:='faSysFile' else sy:='not faSysFile';
   if CheckBox1.Checked=True then re:='faReadOnly' else re:='not faReadOnly';
   if CheckBox1.Checked=True then hi:='faHidden' else hi:='not faHidden';
   FileSetAttr(PChar(a),(ar) or (sy) or (re) or (hi));
   Form2.Close;
end;
В 7 строчке выдает ошибку Unit2.pas(47): Operator not applicable to this operand type

Вроде что-то с типами. Можно конечно реализовать для каждого случая по отдельности, но может есть другой выход...
Заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2011, 10:27
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Ошибка при работе с атрибутами файлов (Delphi):

Ошибка при работе с ComboBox при использовании FindComponent - Delphi
Есть комбобокс, список в него загружается из стринггрида. Потом по выбранному значению в комбобоксе лабелю присваивается соответствующее...

Ошибка при работе с If - Delphi
Добрый день, помогите разобраться с If, есть процедура нажатия кнопки, при которой происходит сохранение. Пробовала сделать проверку на...

ошибка при работе с TChart - Delphi
Здравствуйте!Помогите, пожалуйста, в решении проблемы. Нужно создать круговую диаграмму ("smith"). Ранее созданная с именем series1 была...

Ошибка при работе с файлами - Delphi
не могу разобраться procedure TForm1.BitBtn1Click(Sender: TObject); var fcopy,fname,buf:string; begin if od.Execute...

Ошибка при работе Delphi 7 - Delphi
Сейчас на моем раб.столе около 30 таких окошек. Мне ну очень надоела эта ошибка! Это жуть неудобно. Можно избавиться как то? :cry:

Ошибка при работе с программой - Delphi
Здравствуйте. Имеется программа, задача которой является нахождение корня функции нелинейного уравнения методом половинного деления на...

4
d0lmat
28 / 28 / 1
Регистрация: 28.04.2011
Сообщений: 79
03.05.2011, 10:51 #2
Привет.

Описание функции: function FileSetAttr(const FileName: string; Attr: Integer): Integer;
Attr - Integer, а ты пытаешься туда стринг запихнуть.
0
brauberg1989
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 5
03.05.2011, 17:44  [ТС] #3
Но ведь если написать FileSetAttr(PChar(a),faArchive or faSysFile or faReadOnly or faHidden); то все работает.
0
d0lmat
28 / 28 / 1
Регистрация: 28.04.2011
Сообщений: 79
03.05.2011, 17:50 #4
Верно. faSysFile - это константа.
Объяви переменную типа integer и собери в нее набор констант в зависимости от выбранных чеков.
1
brauberg1989
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 5
03.05.2011, 18:09  [ТС] #5
Спасибо получилось!
0
03.05.2011, 18:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2011, 18:09
Привет! Вот еще темы с ответами:

Ошибка при работе с потоками - Delphi
Проблема в том что , сколько я указал потоков столько программа проходит строк . Типо : 50 потоков = 50 строк как это исправить? ...

Ошибка при работе c sqrt - Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,...

Ошибка при работе с файлом - Delphi
Собственно при обработке процедуры, появляется ошибка: I/O error 103 Отладчик выделяет шестую строку с условием. var t1:textfile; ...

Ошибка при работе конструктора - Delphi
Здравствуйте. При вызове конструктора любого производного класса получаю: "Project ... raised exception class EAccessViolation with...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru