"Fehler" bei Überschreiben von Properties

[JasonDX]

Zitat von 3_of_8:

Deswegen sagte ich ja auch, der Compiler soll in diesem Fall einen VMT-Eintrag anlegen, damit er es weiß.

Warum sollte er einen Eintrag dafuer erstellen? Nix is als virtual deklariert, nix kommt in die VMT. Wenn du willst, dass getter und setter von Kindklassen ueberschrieben werden koennen sollen, dann erstelle sie von Anfang an, und deklariere sie als Virtual.
Ich wuerde den Compiler zu Tode pruegeln, wenn er mir eine virtuelle Setter-Methode deklarieren wuerde, obwohl ich einen Direkten Zugriff von der Property auf die Variable wuensche.

greetz
Mike

[3_of_8]

Ich meinte ja auch, er solle es nur tun, wenn man ansonsten Ärger mit den überschriebenen Properties bekommt.

Wie gesagt, es ist für mich äußerst... befremdlich/seltsam/gewohnheitsbedürftig, dass TB(a).Foo:=42 etwas anderes bewirkt als a.Foo:=42. Intuitiv würde ich sagen, das widerspricht der "dynamischen Bindung", wenn man so verschiedene Effekte durch Typencasting bei Klassen erreicht.

[JasonDX]

Zitat von 3_of_8:

Ich meinte ja auch, er solle es nur tun, wenn man ansonsten Ärger mit den überschriebenen Properties bekommt.

Nein, das wuerde zu noch inkonsistenterem Verhalten fuehren.

Zitat von 3_of_8:

Intuitiv würde ich sagen, das widerspricht der "dynamischen Bindung", wenn man so verschiedene Effekte durch Typencasting bei Klassen erreicht.

Wenn an deiner Property irgendetwas "dynamisches" dabeiwaere, waere es auch irgendwie widersprechend, aber es is nunmal nix "dynamisch"/"virtuell" deklariert, womit eine solche Verhaltensaenderung durch Typecasts durchaus nachvollziehbar, logisch und beabsichtigt ist.

greetz
Mike

[3_of_8]

*kratz*

Naja egal. Welche Workaround gibt es da? Einfach die Property in der Oberklasse statt mit Direktzugriff auf die Felder mit einem Setter deklarieren?

[igel457]

Also ich mache das normalerweise so:

Delphi-Quellcode:

type
  TA=class
  protected
    FFoo: Integer;
    function GetFoo: Integer;virtual;
    procedure SetFoo(AFoo: Integer);virtual;  
  public
    property Foo: Integer read GetFoo write SetFoo;
  end;

  TB=class(TA)
  protected
    procedure SetFoo(AFoo: Integer);override;
    function GetFoo: Integer;override;
  public
  end;

implementation

procedure TA.SetFoo(AFoo: Integer);
begin
  FFoo := AFoo;
end;

procedure TA.SetFoo(AFoo: Integer);
begin
  Result := FFoo;
end;

procedure TB.SetFoo(AFoo: Integer);
begin
  FFoo := AFoo;
  ShowMessage('BLA');
end;

procedure TB.SetFoo(AFoo: Integer);
begin
  Result := FFoo div 2;
end;

[edit]Ausversehen auf Absenden gekommen...[/edit]
[edit]Noch einen Fehler gefunden[/edit]

[mkinzler]

Zitat:

Naja egal. Welche Workaround gibt es da? Einfach die Property in der Oberklasse statt mit Direktzugriff auf die Felder mit einem Setter deklarieren?

Wäre ne Option.

[Der_Unwissende]

Zitat von 3_of_8:

Ich meinte ja auch, er solle es nur tun, wenn man ansonsten Ärger mit den überschriebenen Properties bekommt

Hi,
mal nebenbei bemerkt, Du überschreibst hier nichts, Du verdeckst nur. Das liegt eben daran, dass Delphi standardmässig statisch bindet. Wollte ich nur mal anmerken, denn beim Überschreiben hättest Du schon irgendwie dein erwartetes Verhalten.

Gruß Der Unwissende