Following is a small code extraction.
The compiler says:
"Parameter mismatches definition - A parameter used in a call to a procedure does not match (or cannot be converted to) the data type or reference type (BYREF, BYVAL, BYCOPY) found in the procedure declaration/definition."
The line logged by the compiler was that with the "@" sign.
Here the code:
'
'
'
'Maßlayer abfragen
iRet = VCGetDimUseDimLayer(iError)
SetMenuItemCheck("Maßlayer verwenden", iRet)
'Textlayer abfragen
iRet = VCGetTextUseTextLayer(iError)
SetMenuItemCheck("Textlayer verwenden", iRet)
'Schraffurlayer abfragen
@ iRet = VCGetHatchLayer, iError, tfUsed)
iHatchLayerIndex = iRet
tfHatchLayerUsed = tfUsed
SetMenuItemCheck("Schraffurlayer verwenden", iRet
'Layerparameter abfragen
iRet = VCGetDrawingUsedByLayerProperties(iError)
SetMenuItemCheck("Parameter verwenden", iRet)
end sub
Solution of the puzzle:
What I did not notice at once, is the missing ")" in one line.
I think that such error messages could lead do time consuming actions.
The compiler says:
"Parameter mismatches definition - A parameter used in a call to a procedure does not match (or cannot be converted to) the data type or reference type (BYREF, BYVAL, BYCOPY) found in the procedure declaration/definition."
The line logged by the compiler was that with the "@" sign.
Here the code:
'
'
'
'Maßlayer abfragen
iRet = VCGetDimUseDimLayer(iError)
SetMenuItemCheck("Maßlayer verwenden", iRet)
'Textlayer abfragen
iRet = VCGetTextUseTextLayer(iError)
SetMenuItemCheck("Textlayer verwenden", iRet)
'Schraffurlayer abfragen
@ iRet = VCGetHatchLayer, iError, tfUsed)
iHatchLayerIndex = iRet
tfHatchLayerUsed = tfUsed
SetMenuItemCheck("Schraffurlayer verwenden", iRet
'Layerparameter abfragen
iRet = VCGetDrawingUsedByLayerProperties(iError)
SetMenuItemCheck("Parameter verwenden", iRet)
end sub
Solution of the puzzle:
What I did not notice at once, is the missing ")" in one line.
I think that such error messages could lead do time consuming actions.
Comment