Вопрос № 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
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