Интересные странности BindExpression
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- ✯ Ветеран ✯
- Сообщения: 4983
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Интересные странности BindExpression
Возникло недопонимание. Или у меня.
vic7tar , Вы в своём примере уберите операторы Bind. И увидите разницу.
vic7tar , Вы в своём примере уберите операторы Bind. И увидите разницу.
We are hard at work… for you.
-
- ✯ Ветеран ✯
- Сообщения: 4983
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Интересные странности BindExpression
А зачем масло масляное? BindExpression прекрасно работает без Bind.
We are hard at work… for you.
-
- ✯ Ветеран ✯
- Сообщения: 4983
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Интересные странности BindExpression
Код: Выделить всё
test Procedure()
clafile File, Driver('TOPSPEED'), Pre(cf), Name('clafile.tps'), Create, Bindable
rec Record
field1 Long
field2 Long, Name('Bind_field2')
field3 Long
field4 Long ..
rez Real
Code
! Bind(cf:rec)
! Bind('cffield4', cf:field4)
share(clafile )
BindExpression('rezult', '(cf:field1 - cf:field2 + cf:field4) * ACOS(cf:field3)')
cf:field1 = 3
cf:field2 = 2
cf:field3 = 0
cf:field4 = 1
rez = Evaluate('rezult')
Message('error = ' & ErrorCode() & chr(13) & 'rez = ' & rez)
Return
We are hard at work… for you.
-
- ✯ Ветеран ✯
- Сообщения: 4983
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Интересные странности BindExpression
Тогда вместо share поставьте:
Код: Выделить всё
Relate:clafile.SetOpenRelated()
Relate:clafile.Open
We are hard at work… for you.
Интересные странности BindExpression
kreator, если у Вас есть примерчик - покажите. Я привел пример на на чистом Clarion-e, без всяких методов.
Где и что мне там подправить, чтобы заработало без биндов?
C10, Win10x64
-
- ✯ Ветеран ✯
- Сообщения: 4983
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Интересные странности BindExpression
Сделайте процедуру на ABC, можно просто Source. Поставьте опцию генерить рутины открытия/закрытия файлов. В самом тексте вызовите рутину открытия файлов и после этого BindExpression заработает.
Вообще непонятно, что Вы хотите понять? Получается - BindExpression сам по себе ничего не биндит. Полагается на Bind. Но в ABC, видимо, в методах открытия файлов/таблиц этот Bind явно прописан. Поэтому можно Bind явно не указывать.
Вообще непонятно, что Вы хотите понять? Получается - BindExpression сам по себе ничего не биндит. Полагается на Bind. Но в ABC, видимо, в методах открытия файлов/таблиц этот Bind явно прописан. Поэтому можно Bind явно не указывать.
Но вот это сильно! Clean & Elegant Language!
We are hard at work… for you.
- RaFaeL
- ✯ Ветеран ✯
- Сообщения: 1376
- Зарегистрирован: 24 Март 2009, 17:59
- Откуда: НН
- Благодарил (а): 7 раз
- Поблагодарили: 1 раз
- Контактная информация:
Интересные странности BindExpression
Так и есть. В методе Open -> OpenServer - > BindFields -> BIND (SELF.Buffer)
Давно бы посмотрели и не спорили
Давно бы посмотрели и не спорили
- Игорь Столяров
- Ветеран движения
- Сообщения: 7373
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 13 раз
- Поблагодарили: 48 раз
Интересные странности BindExpression
Сейчас расскажу такое, что не в каждом цирке за деньги покажут …
В любом MDI окне делаем вставку:
После этого окно при закрытии (!!!) вылетает с GPF (в C11 - явно, в C63 - молча).
Evaluate('CCC') отрабатывает корректно, никаких кодов ошибок - всё чисто.
В любом MDI окне делаем вставку:
Код: Выделить всё
! BIND variables
! [Priority 5800]
BindExpression('BBB',1)
BindExpression('CCC','BBB')
Evaluate('CCC') отрабатывает корректно, никаких кодов ошибок - всё чисто.
За теми кто отстал - не возвращаться. (С) Кодекс