You have specified value for your message index which <= 0.
program Produce; type Base = class procedure Dynamo(VAR x : Integer); message -151; end; procedure Base.Dynamo(VAR x : Integer); begin end; begin end.
The specification of -151 as the message index is illegal in the above example.
program Solve; type Base = class procedure Dynamo(VAR x : Integer); message 151; end; procedure Base.Dynamo(VAR x : Integer); begin end; begin end.
Always make sure that your message index values are >= 1.
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|