Вопрос № 109972: здравствуйте многоуважаемые эксперты. Вопрос такого плана, как средствами делфи замерить температуру процессора и материнской платы. Заранее благодарен....Вопрос № 109992: Здравствуйте, помогите пожалуйста дополнить код программы, чтобы при выборе пункта в компоненте listbox еще значение edit1.text принимало нужное значение.
...Вопрос № 110021: Здравствуйте, пишут тут процедуру, нужно чтобы при выпадении хотя бы в одной из меток семерки, рисунок на форме становился видимымю
Но компилятор мне пишет: declaration expected but 'IF' found
Что это означает и как устранить ошибку?...
Вопрос № 109.972
здравствуйте многоуважаемые эксперты. Вопрос такого плана, как средствами делфи замерить температуру процессора и материнской платы. Заранее благодарен.
Отправлен: 18.11.2007, 12:50
Вопрос задал: Jakoni (статус: 2-ой класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Genia007
Здравствуйте, Jakoni! Я использовал для этой цели WMI запросы, но к сожелению этот код на моей материнке не хочет работать, нет необходимых провайдеров. В приложении исходник.
Приложение:
Ответ отправил: Genia007 (статус: 1-ый класс)
Ответ отправлен: 19.11.2007, 17:06
Вопрос № 109.992
Здравствуйте, помогите пожалуйста дополнить код программы, чтобы при выборе пункта в компоненте listbox еще значение edit1.text принимало нужное значение.
Отвечает: Маренич Владимир
Здравствуйте, Исаак Моисеевич!
У Вас IF находится после конца процедуры "end;"
А "end." указывает на конец модуля. Перенесите IF в тело процедуры.
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 18.11.2007, 17:38 Оценка за ответ: 5 Комментарий оценки: перенес, теперь пишет: [Error] Unit1.pas(50): Operator not applicable to this operand type [Error] Unit1.pas(50): Operator not applicable to this operand type
Отвечает: Gh0stik
Здравствуйте, Исаак Моисеевич!
Вы просто в условии использовали знак присвоения.
If (label1.caption:='7') or (label2.caption:='7')
or (label3.caption:='7') then image1.Visible:=true;
Правильная запись должна быть такая: procedure TForm1.Button1Click(Sender: TObject); var a,b,c:integer; begin
randomize;
a:=random(9);
b:=random(9);
c:=random(9);
label1.Caption:=inttostr(a);
label2.Caption:=inttostr(b);
label3.Caption:=inttostr(c); if (label1.caption='7') or (label2.caption='7') or (label3.caption='7') then image1.Visible:=true; end;
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 18.11.2007, 18:12 Оценка за ответ: 5 Комментарий оценки: работает, спасибо
оператор условия у вас находится за телом процедуры клика вот об этом собственно компилятор и пишет и в скобках ставится просто = а не оператор присваивания :=
Приложение:
Ответ отправил: Стома С.С. (статус: 2-ой класс)
Ответ отправлен: 20.11.2007, 17:15
Отправить вопрос экспертам этой рассылки
Приложение (если необходимо):
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
