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
  • No labels