type TMyClass = class(TObject)
This should cause 3 warnings: MyField1 has two descriptions, MyField2 has two descriptions, and NotExistsingMember does not exist.
| Public | MyField1: Integer; |
| Public | MyField2: Integer; |
| Public | MyField1: Integer; |
|
Second description of MyField1. | |
| Public | MyField2: Integer; |
|
First description of MyField2. | |