Страница 4 из 4
Интересные странности BindExpression
Добавлено: 16 Май 2019, 13:54
kreator
Возникло недопонимание. Или у меня.
vic7tar , Вы в своём примере уберите операторы Bind. И увидите разницу.
Интересные странности BindExpression
Добавлено: 16 Май 2019, 14:14
vic7tar
kreator писал(а): ↑16 Май 2019, 13:54Возникло недопонимание. Или у меня.
vic7tar , Вы в своём примере уберите операторы Bind. И увидите разницу.
Ну естественно будет ошибка. А зачем их убирать?
Интересные странности BindExpression
Добавлено: 16 Май 2019, 14:56
kreator
А зачем масло масляное? BindExpression прекрасно работает без Bind.
Интересные странности BindExpression
Добавлено: 16 Май 2019, 15:08
vic7tar
kreator писал(а): ↑16 Май 2019, 14:56BindExpression прекрасно работает без Bind.
А маленький примерчик можно?
Интересные странности BindExpression
Добавлено: 16 Май 2019, 15:36
kreator
Код: Выделить всё
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
Вот так попробуйте.
Интересные странности BindExpression
Добавлено: 16 Май 2019, 16:07
vic7tar
kreator писал(а): ↑16 Май 2019, 15:36
. . .
! Bind(cf:rec)
! Bind('cffield4', cf:field4)
share(clafile )
BindExpression('rezult', '(cf:field1 - cf:field2 + cf:field4) * ACOS(cf:field3)')
if errorcode() ; message(errorcode()).
. . .
Код ошибки - 1011
Интересные странности BindExpression
Добавлено: 16 Май 2019, 16:24
kreator
Тогда вместо share поставьте:
Код: Выделить всё
Relate:clafile.SetOpenRelated()
Relate:clafile.Open
Интересные странности BindExpression
Добавлено: 16 Май 2019, 16:55
vic7tar
kreator писал(а): ↑16 Май 2019, 16:24Тогда вместо share поставьте:
КОД: ВЫДЕЛИТЬ ВСЁ
Relate:clafile.SetOpenRelated()
Relate:clafile.Open
kreator, если у Вас есть примерчик - покажите. Я привел пример на на чистом Clarion-e, без всяких методов.
Где и что мне там подправить, чтобы заработало без биндов?
Интересные странности BindExpression
Добавлено: 16 Май 2019, 17:48
kreator
Сделайте процедуру на ABC, можно просто Source. Поставьте опцию генерить рутины открытия/закрытия файлов. В самом тексте вызовите рутину открытия файлов и после этого BindExpression заработает.
Вообще непонятно, что Вы хотите понять? Получается - BindExpression сам по себе ничего не биндит. Полагается на Bind. Но в ABC, видимо, в методах открытия файлов/таблиц этот Bind явно прописан. Поэтому можно Bind явно не указывать.
vic7tar писал(а): ↑16 Май 2019, 16:55
Я привел пример на на чистом Clarion-e, без всяких методов.
Но вот это сильно! Clean & Elegant Language!
Интересные странности BindExpression
Добавлено: 16 Май 2019, 19:04
RaFaeL
Так и есть. В методе Open -> OpenServer - > BindFields -> BIND (SELF.Buffer)
Давно бы посмотрели и не спорили
Интересные странности BindExpression
Добавлено: 16 Май 2019, 20:31
vic7tar
kreator писал(а): ↑16 Май 2019, 17:48
vic7tar писал(а): ↑16 Май 2019, 16:55
Я привел пример на на чистом Clarion-e, без всяких методов.
Но вот это сильно! Clean & Elegant Language!
kreator писал(а): ↑16 Май 2019, 15:36 Code
! Bind(cf:rec)
! Bind('cffield4', cf:field4)
share(clafile )
BindExpression('rezult', '(cf:field1 - cf:field2 + cf:field4) * ACOS(cf:field3)')
А вот это ещё сильнее.
Интересные странности BindExpression
Добавлено: 28 Май 2019, 13:21
Игорь Столяров
Сейчас расскажу такое, что не в каждом цирке за деньги покажут …
В любом MDI окне делаем вставку:
Код: Выделить всё
! BIND variables
! [Priority 5800]
BindExpression('BBB',1)
BindExpression('CCC','BBB')
После этого окно при закрытии (!!!) вылетает с GPF (в C11 - явно, в C63 - молча).
Evaluate('CCC') отрабатывает корректно, никаких кодов ошибок - всё чисто.
