tw29030.pp 305 B

12345678910111213141516171819
  1. program fpc_nestedtype_ice;
  2. {$mode delphiunicode}
  3. Type
  4. TRec = Record
  5. Type
  6. NestedType = Record
  7. Class Var
  8. FVar : Integer;
  9. Class Property Variable : Integer Read FVar Write FVar;
  10. End;
  11. End;
  12. Begin
  13. TRec.NestedType.Variable := 1;
  14. if TRec.NestedType.Variable<>1 then
  15. halt(1);
  16. End.