BEGIN
INT _errorCode, _errorLine
TEXT _function, _errorMsg
RECORD NOALIAS (SD.EDA_CalcFunction_Params_V1) _calcParams
RECORD NOALIAS (SD.EDA_Arr_Obj) _values
; pri nacitani vygeneruje runtime vynimku pretecenia rozsahu
_function := "VEKTOR _v;" + %Chr(10)
_function := _function + "_v[1] := 1;" + %Chr(10)
_function := _function + "RETURN _v;"
_calcParams[1]^structVersion := 1
CALL %EDA_CalcFunctionRec(10, _function, SysTime, SysTime, 0, _calcParams, _values, 1, _errorCode)
; ocakavam ERR_RANGE_ERROR (11)
IF _errorCode != 11 THEN
RETURN
ENDIF
CALL %EDA_GetLastEDAError(_errorCode, _errorLine, _errorMsg)
; ocakavam ERR_RANGE_ERROR (11) na riadku 2
IF _errorCode != 11 | _errorLine != 2 THEN
RETURN
ENDIF
END |