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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Ноябрь 2005   →
 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


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 287
от 06.11.2005, 18:27

Администратор:Калашников О.А.
В рассылке:Подписчиков: 252, Экспертов: 47
В номере:Вопросов: 2, Ответов: 8

Вопрос № 28640: Здравствуйте уважаемые эксперты! где в этом коде ошибка? getball - переменная см.приложение Спасибо!...
Вопрос № 28651: Уважаемые эксперты! Как програмно открыть соединение по умолчанию в Windows 2000, в папке Панель управления/Сеть и удаленный доступ к сети....

Вопрос № 28.640
Здравствуйте уважаемые эксперты!
где в этом коде ошибка?
getball - переменная

см.приложение
Спасибо!

Приложение:

Отправлен: 31.10.2005, 19:29
Вопрос задал: Sassoft (статус: Посетитель)
Всего ответов: 7
Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Ujin Antikvar
Здравствуйте, Sassoft!

if (getball=40) then if ((StrToFloat(RxLabel40.Caption)*Random(100)/100)*StrToFloat('2')) < StrToFloat(RxLabel23.Caption)*Random(100)/100) then......

Вот так должно работать ты просто сравнивал строку с числом

Удачи!!!!

---------
Не зацикливайся на достигнутом, а двигайся в перед
Ответ отправил: Ujin Antikvar (статус: 2-ой класс)
Отправлен: 31.10.2005, 19:43
Отвечает: Архангельский Андрей Германович
Здравствуйте, Sassoft!
if (getball=40) then if [(FloatToStr ](StrToFloat(RxLabel40.Caption)*Random(100)/100)*StrToFloat('2')[)] < StrToFloat(RxLabel23.Caption)*Random(100)/100) then......

В квадратных скобках лишний код. Ты сравниваешь строку с Float.
Пиши ясный код и тогда сам сможешь найти ошибку, точнее она возникать не будет
Смотри приложение

И непонятно зачем все операции делать на RxLabel.Caption

Приложение:

Ответ отправил: Архангельский Андрей Германович (статус: 3-ий класс)
Отправлен: 31.10.2005, 19:55
Отвечает: Маренич Владимир
Здравствуйте, Sassoft!

Пропущена скобка после <

if (getball=40) then if (FloatToStr(StrToFloat(RxLabel40.Caption)*Random(100)/100)*StrToFloat('2')) < (StrToFloat(RxLabel23.Caption)*Random(100)/100) then......
Ответ отправил: Маренич Владимир (статус: 4-ый класс)
Отправлен: 31.10.2005, 20:02
Отвечает: Ерёмин Андрей
Здравствуйте, Sassoft!
Тут много ошибок. Самая главная - вы пытаетесь сравнить String и Extended значения, т.е. число и строку. Кроме того, там есть лишняя скобка.
Правильный вариант:

if (getball=40) then
if (StrToFloat(RxLabel40.Caption)*Random(100)/100*StrToFloat('2')) <
(StrToFloat(RxLabel23.Caption)*Random(100)/100) then ...
---------
Где найти кpяк под ковpик для однокнопочного мыша?
Ответ отправил: Ерёмин Андрей (статус: Специалист)
Отправлен: 31.10.2005, 20:16
Отвечает: Schmak
Здравствуйте, Sassoft!
Во-первых Вы сравниваете число Extended со строкой, так что первое преобразование StrToFloat лишнее , также в конце лишняя скобка:
if (getball=40) then
if (StrToFloat(RxLabel40.Caption)*Random(100)/100)*StrToFloat('2') < StrToFloat(RxLabel23.Caption)*Random(100)/100 then.......
Ответ отправил: Schmak (статус: 5-ый класс)
Отправлен: 01.11.2005, 05:20
Отвечает: Ataman N. N.
Здравствуйте, Sassoft!
Ошибка в следующем фрагменте кода:
if (FloatToStr(StrToFloat(RxLabel40.Caption)*Random(100)/100)*StrToFloat('2')) < StrToFloat(RxLabel23.Caption)*Random(100)/100)
Здесь происходит сравнение строки с вещественным числом. Более верно будет:
if (StrToFloat(RxLabel40.Caption)*Random(100)/100)*StrToFloat('2') < StrToFloat(RxLabel23.Caption)*Random(100)/100)
Ответ отправил: Ataman N. N. (статус: 1-ый класс)
Отправлен: 01.11.2005, 10:17
Отвечает: sir henry
Здравствуйте, Sassoft!
Вы строковое выражение сравниваете с числом - компилятору за Вас должно быть стыдно. :)
Ответ отправил: sir henry (статус: Академик)
Отправлен: 01.11.2005, 10:25
Оценка за ответ: 1
Комментарий оценки:
А за вас????

Вопрос № 28.651
Уважаемые эксперты!
Как програмно открыть соединение по умолчанию в Windows 2000, в папке Панель управления/Сеть и удаленный доступ к сети.
Отправлен: 31.10.2005, 21:32
Вопрос задал: Yxo (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: sir henry
Здравствуйте, Yxo!
Что значит "открыть"?
В этой папке два вида соединений - подключение по локальной сети и диалап.
Вам нужно открыть свойство соединения?
Вам нужно запустить набор номера (диалап)?
Ответ отправил: sir henry (статус: Академик)
Отправлен: 01.11.2005, 09:18

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Rambler's Top100 Яндекс

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки 		Отписаться
Вспомнить пароль
В избранное