ocr: l MESSAGES.HFtion method action(var eventinfo ActionEvent) var Errmsgstr String i Smallint ErrMsgDyn Arrayl] String enduar if eventinfo.1sPrefilter0) then ; This code executes for each object on the Form. else ; This code executes only for the Form. endif doDerauit if errorCode() <> 0 then ErrMsgstr = errorMessagec) ErrMsgstr.breakmpart(ErrisgDyn,"Irin") ErrMsgstr = : for i From 1 to Errisguyn.512e0 ErrMsgstr = ErrMsgstr + ErrMsgDyn(1] endFor neSsagetrrisgstr) endif endMethod Edit Line: 9 Col: 1
