ocr: MENUZELIbraryl.aryltaformLoader proc aupenform(afile String, - Name of form file aTitle String) - Title for form window String Non-null when form couldn't be loaded var FCrntrorm Form Handle to form nErr Smallint Error number for display in aErr aErr String Error message enduar aErr = BII try if not FCrntForm.open aFile ) then nErr = errorcode) aErr = "->" + - errorMessage0) aErr = "Cannot open: 1" + aTitle + "l"InFile: "+ aFile+"-inParadox error: " + strval(nerr) + aErr else KCrntForn.setritled aTitle ) endif ;not FCrntForm.open aFile ) onFail aErr = "Error occured when trying to open form fi ...
