суббота, 9 ноября 2013 г.

GUI-тестирование "по-русски". Определим операторы =- и =+

В некотором роде предыдущая серия была тут - http://18delphi.blogspot.com/2013/11/gui_4060.html

Определим операторы =- и =+

В стиле - http://18delphi.blogspot.ru/2013/11/gui-2_9.html


WORDWORKER =- INTEGER IN aDecrement
 VAR l_Diff
 WordToWork DO aDecrement - =: l_Diff
 // - вычисляем разность
 WordToWork ^:= l_Diff
 // - присваиваем получившееся значение переменной
END // =-

WORDWORKER =+ INTEGER IN anIncrement
 VAR l_Summ
 WordToWork DO anIncrement + =: l_Summ
 // - вычисляем сумму
 WordToWork ^:= l_Summ
 // - присваиваем получившееся значение переменной
END // =+

Используются они так:
10 =+ X
20 =- X

Ну и поскольку это - "аксиоматика" (предположим) - регистрируем это на стороне Delphi:

initialization
 ScriptEngine.Register([
'WORDWORKER =- INTEGER IN aDecrement',
' VAR l_Diff',
' WordToWork DO aDecrement - =: l_Diff',
' // - вычисляем разность',
' WordToWork ^:= l_Diff',
' // - присваиваем получившееся значение переменной',
'END // =-',

'WORDWORKER =+ INTEGER IN anIncrement',
' VAR l_Summ',
' WordToWork DO anIncrement + =: l_Summ',
' // - вычисляем сумму',
' WordToWork ^:= l_Summ',
' // - присваиваем получившееся значение переменной',
'END // =+'
 ]);

Комментариев нет:

Отправить комментарий