[fpc-devel] Defenition of destructor behind property

[Joost van der Sluis]

Hi all,

This construct is accepted by the compiler:

  Tdm = class(TDataModule)
    IBConnection1: TIBConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    function GetOnderdelen: TXMLDocument;
  public
    property Onderdelen: TXMLDocument read GetOnderdelen;
    destructor Destroy; override;
  end;

Note the 'destructor' behind the property definition. Isn't this a bug?
(The Lazarus codetools choke on it)

Joost.
-- 
My Lazarus blog: http://www.lazarussupport.com/lazarus/weblog