Интересные странности BindExpression

[kreator]

Возникло недопонимание. Или у меня.
vic7tar , Вы в своём примере уберите операторы Bind. И увидите разницу.

[vic7tar]

Возникло недопонимание. Или у меня.
vic7tar , Вы в своём примере уберите операторы Bind. И увидите разницу.

Ну естественно будет ошибка. А зачем их убирать?

[kreator]

А зачем масло масляное? BindExpression прекрасно работает без Bind.

[vic7tar]

BindExpression прекрасно работает без Bind.

А маленький примерчик можно?

[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

Вот так попробуйте.

[vic7tar]

. . .
! 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

[kreator]

Тогда вместо share поставьте:

Код: Выделить всё

Relate:clafile.SetOpenRelated()
Relate:clafile.Open 

[vic7tar]

Тогда вместо share поставьте:
КОД: ВЫДЕЛИТЬ ВСЁ

Relate:clafile.SetOpenRelated()
Relate:clafile.Open

kreator, если у Вас есть примерчик - покажите. Я привел пример на на чистом Clarion-e, без всяких методов.
Где и что мне там подправить, чтобы заработало без биндов?

[kreator]

Сделайте процедуру на ABC, можно просто Source. Поставьте опцию генерить рутины открытия/закрытия файлов. В самом тексте вызовите рутину открытия файлов и после этого BindExpression заработает.
Вообще непонятно, что Вы хотите понять? Получается - BindExpression сам по себе ничего не биндит. Полагается на Bind. Но в ABC, видимо, в методах открытия файлов/таблиц этот Bind явно прописан. Поэтому можно Bind явно не указывать.

Я привел пример на на чистом Clarion-e, без всяких методов.

Но вот это сильно! Clean & Elegant Language!

[RaFaeL]

Так и есть. В методе Open -> OpenServer - > BindFields -> BIND (SELF.Buffer)
Давно бы посмотрели и не спорили

[vic7tar]

vic7tar писал(а): ↑16 Май 2019, 16:55
Я привел пример на на чистом Clarion-e, без всяких методов.

Но вот это сильно! Clean & Elegant Language!

Code

! Bind(cf:rec)
! Bind('cffield4', cf:field4)
share(clafile )
BindExpression('rezult', '(cf:field1 - cf:field2 + cf:field4) * ACOS(cf:field3)')

А вот это ещё сильнее.

[Игорь Столяров]

Сейчас расскажу такое, что не в каждом цирке за деньги покажут …

В любом MDI окне делаем вставку:

Код: Выделить всё

  ! BIND variables
  ! [Priority 5800]
  
  BindExpression('BBB',1)
  BindExpression('CCC','BBB')  

После этого окно при закрытии (!!!) вылетает с GPF (в C11 - явно, в C63 - молча).
Evaluate('CCC') отрабатывает корректно, никаких кодов ошибок - всё чисто.