Page History
[ 
|../../index.htm#lansa/assign_e.htm]
現在地:
...
7.3.2 ASSIGNの使用例
簡単な値の割り当て
#PHBN_1.
...
Left :=
...
10
#PHBN_2.
...
Left :=
...
#PHBN_1.
...
Left + 10
#PHBN_3.
...
Left :=
...
#PHBN_2.
...
Left + 10文字列の割り当て
...
#FullAddress :=
...
#Address1.RightTrim + ' ' + #Address2.RightTrim + ' ' + #Address3.RightTrim計算式の割り当て
#PHBN_1.
...
Width +=
...
10
#PHBN_1.
...
Height *=
...
2複数の割り当て
...
#ADDRESS1 #ADDRESS2 #ADDRESS3 :=
...
*DEFAULT
...
参照の割り当て
#REF_
...
ONE #REF_TWO #REF_THREE <= *NULL
Mthroutine Assign_example
Define_Map For(*input)
...
Class(#prim_objt)
...
name(#Object)
...
Pass(*by_Reference)
Define_
...
Com Class(#Prim_phbn)
...
Name(#Current_button)
...
Reference(*dynamic)
#Current_
...
button <= #Object *as #prim_phbn
Endroutine