In your Delphi program, When a constant appears more than once in the declaration of a variant record, this error message is displayed.
program Produce; type VariantRecord = record case Integer of 0 (IntField: Integer); 0 (RealField: Real); (*<-- Error message here*) end; begin end.
How to Fix it?
program Solve; type VariantRecord = record case Integer of 0 (IntField: Integer); 1 (RealField: Real); end; begin end.
Leave a Reply