Deprecated nicht möglich bei Properties?

[bernau]

Ich wollte heute ein Property in einem Objekt als deprecated markieren, damit der Compiler in den verschiedenen Projekten die entsprechenden Stellen anzeigt, in dem das Property verwendet wurde.

Bei normalen Proceduren funktioniert das wunderbar.

Folgender Fehler erscheint aber bei Properties.


property Bonusfaehig: boolean read fBonusfaehig write fBonusfaehig; deprecated;

Zitat:

"[DCC Fehler] gpl6objects.pas(3072): E2169 Felddefinition nicht erlaubt nach Methoden oder Eigenschaften"

Wie kann ich dies umgehen?

[Stevie]

Ist leider ein bekannter (bekannt im Sinne von, steht im QC) Bug: http://qc.embarcadero.com/wc/qcmain.aspx?d=96350 (wobei Bug relativ ist, denn es steht auch nicht in der Dokumentation, dass deprecated für Eigenschaften geht)

[bernau]

Schade.

[David Martens]

Mit einem kleinen Umweg schon möglich.

aus
property Bonusfaehig: boolean read fBonusfaehig write fBonusfaehig;

Delphi-Quellcode:

function GetBonusfaehig : boolean; deprecated;
procedure SetBonusfaehig(const Value : boolean); deprecated;

property Bonusfaehig: boolean read GetBonusfaehig write SetBonusfaehig; deprecated;

machen, dann wird deprecated für jeden Aufruf von Bonusfaehig generiert. Ist sowieso schöner immer Get- und Setmethoden zu verwenden.

[Stevie]

Zitat von David Martens:

Mit einem kleinen Umweg schon möglich.

aus
property Bonusfaehig: boolean read fBonusfaehig write fBonusfaehig;

Delphi-Quellcode:

function GetBonusfaehig : boolean; deprecated;
procedure SetBonusfaehig(const Value : boolean); deprecated;

property Bonusfaehig: boolean read GetBonusfaehig write SetBonusfaehig; deprecated;

machen, dann wird deprecated für jeden Aufruf von Bonusfaehig generiert. Ist sowieso schöner immer Get- und Setmethoden zu verwenden.

Zumindest in XE werden hier nur 2 deprecated Warnings generiert, nämlich für die Verwendung der beiden Methoden als Getter und Setter.
Nicht aber bei der Verwendung der Eigenschaft selber irgendwo im Code.

[DeddyH]

Eben, sonst könnte man auch einfach
{$MESSAGE Warn 'Property ''Bonusfaehig'' ist veraltet'} schreiben.