var
Memo1 Memo
endVar
method pushButton(var eventInfo Event)
var
str String
endVar
; Example only; don't use view() in production apps.
str.View( "Add Item to Memo" )
if not Memo1.isAssigned() then
Memo1 = Memo( str )
else
memo1 = memo1 + Memo( str )
endIf
; fldMemo is an unbound field object on the form
fldMemo.Value = Memo1
endMethod