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) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
|
What do you think about this topic? Send feedback!
|