This error message is given when a constant appears more than once in the declaration of a variant record.
program Produce; type VariantRecord = record case Integer of 0: (IntField: Integer); 0: (RealField: Real); (*<-- Error message here*) end; begin end. program Solve; type VariantRecord = record case Integer of 0: (IntField: Integer); 1: (RealField: Real); end; begin end.
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|