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