Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Ноябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

Народное голосование ПРЕМИИ РУНЕТА-2007!
Голосуем за RusFAQ.ru >>

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 987
от 23.11.2007, 21:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 445, Экспертов: 58
В номере:Вопросов: 3, Ответов: 5

Вопрос № 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 принимало нужное значение.

Приложение:

Отправлен: 18.11.2007, 14:47
Вопрос задал: Исаак Моисеевич (статус: 2-ой класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 18)
Отвечает: Стома С.С.
Здравствуйте, Исаак Моисеевич!

Достаточно добавить в case

edit1.text:= ListBox1.Items.Strings[номер строчки]
Ответ отправил: Стома С.С. (статус: 2-ой класс)
Ответ отправлен: 20.11.2007, 17:13

Вопрос № 110.021
Здравствуйте, пишут тут процедуру, нужно чтобы при выпадении хотя бы в одной из меток семерки, рисунок на форме становился видимымю

Но компилятор мне пишет: declaration expected but 'IF' found
Что это означает и как устранить ошибку?

Приложение:

Отправлен: 18.11.2007, 17:26
Вопрос задал: Исаак Моисеевич (статус: 2-ой класс)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 20)
Отвечает: Маренич Владимир
Здравствуйте, Исаак Моисеевич!
У Вас 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.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.63 от 22.11.2007 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное