mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 18:10:29 +02:00
72758864e4
* improved error recovery after encountering invalid field name in record/object typed constant
declaration
git-svn-id: trunk@15150 -
19 lines
362 B
ObjectPascal
19 lines
362 B
ObjectPascal
{ %fail }
|
|
|
|
type
|
|
MyObjType = object
|
|
Field1 : String;
|
|
Field2 : String;
|
|
Field3 : String;
|
|
property Prop3:String read Field3;
|
|
end;
|
|
|
|
var // or const
|
|
Obj: MyObjType = (Prop3:'prop3';Field3:'field3'); // actually sets Field1 ?!
|
|
|
|
begin
|
|
writeln(Obj.Field1); // prints 'prop3' ?!
|
|
writeln(Obj.Field3); // prints 'field3'
|
|
writeln(Obj.Prop3); // prints 'field3'
|
|
end.
|