Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.09.2013, 17:22   #1
lypyotr
Пользователь
 
Регистрация: 19.07.2011
Сообщений: 33
По умолчанию Не могу запустить код

Код:
procedure TForm1.Edit5Change(Sender: TObject);
begin
if (edit5.text='000') and (edit5.Enabled:=false) then
timer5.Enabled:=true;
end;
Ошибка здесь:
if (edit5.text='000') and (edit5.Enabled:=false) the

Текст ошибки:
[dcc32 Error] Unit1.pas(86): E2015 Operator not applicable to this operand type

Последний раз редактировалось Stilet; 03.09.2013 в 17:37.
lypyotr вне форума Ответить с цитированием
Старый 03.09.2013, 17:32   #2
grominfo
Форумчанин
 
Аватар для grominfo
 
Регистрация: 30.05.2011
Сообщений: 651
По умолчанию

Когда сравниваешь значения, не нужно ставить оператор присваивания (:=)

Вот правильный код:

Код:
procedure TForm1.Edit5Change(Sender: TObject);
 begin
 if (edit5.text='000') and (edit5.Enabled=false) then
 timer5.Enabled:=true;
 end;
или так

Код:
procedure TForm1.Edit5Change(Sender: TObject);
 begin
 if (edit5.text='000') and ( not  edit5.Enabled) then
 timer5.Enabled:=true;
 end;
Создание, программирование и сопровождение сайтов любой сложности.
Изготовление программ на заказ.
Список услуг и портфолио на сайте www.andreygrom.ru

Последний раз редактировалось grominfo; 03.09.2013 в 17:36.
grominfo вне форума Ответить с цитированием
Старый 03.09.2013, 17:34   #3
lypyotr
Пользователь
 
Регистрация: 19.07.2011
Сообщений: 33
По умолчанию

Я уже нашёл, но всё равно, спасибо
lypyotr вне форума Ответить с цитированием
Старый 03.09.2013, 17:34   #4
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Код:
if (edit5.text='000') and not edit5.Enabled then
northener вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не могу запустить комп(( chervonec Помощь студентам 7 08.04.2012 20:45
Не могу запустить... Тигран001 Софт 0 06.12.2010 22:01
Телнет (не могу запустить) 80971815772 Операционные системы общие вопросы 1 24.06.2009 05:52
Не могу запустить volna Паскаль, Turbo Pascal, PascalABC.NET 6 01.06.2009 20:09
Не могу запустить Python(( A-l-e-x PHP 1 30.03.2009 10:20