Setter mehrfach überschreiben.

[Bjoerk]

Ich habe 3 Klassen:

Delphi-Quellcode:

  TDingensBase = class
  protected
    function GetTest: string; virtual; abstract;
    procedure SetTest(const Value: string); virtual; abstract;
    property Test: string read GetTest write SetTest;
  end;

  TDingens = class(TDingensBase)
  protected
    FTest: string;
    function GetTest: string; override;
    procedure SetTest(const Value: string); override;
  public
    property Test;
  end;

  TDingensEx = class(TDingens)
  private
    procedure SetTest(const Value: string); override;
  end;

Das seh ich doch richtig, daß man die property Test nicht 2 mal veröffenlichen muß und das für Test von TDingensEx der Setter davon benutzt wird?

[stahli]

Korrekt.

[Bjoerk]

Ok, thanx Stahli. BTW, gibt’s da einen Trick um zu überprüfen, ob man eine Methode vergessen hat zu überschreiben. Wenn man die Methode ohne override einfügt gibt der Compiler ja schön die Warnung (verdeckt Methode der Basisklasse). Aber wenn man die Methode ganz vergessen hat, meckert "er" nicht, man würde im dem Fall ja ggf. die abstrakten verwenden? Ist mir noch nicht passiert. Verschwindet der Wert dann im Nirwana oder krachst dann?

[stahli]

Wenn Du eine abstrakte Methode aufrufst, bekommst Du eine Fehlermeldung.
Abstrakte Methoden sind also nicht schädlich, aber Du darfst sie halt nicht aufrufen ohne sie zu überschreiben.

[Bjoerk]

Jetzt bekomm ich ca. 1600 Warnungen wie diese. Ist das normal. Wohl kaum??

[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetDimensionAlignRight' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetPosAlign' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetPositionAlign' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetTextAlign' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetOddHatchPenStyle' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetEvenHatchPenStyle' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetSectionTriangleWidth' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetSectionAlign' wird angelegt
[DCC Warnung] uGraphicObjectList.pas(1353): W1020 Instanz von 'TWerkzeug3' mit der abstrakten Methode 'TWerkzeug.GetSectionFilledTriangle' wird angelegt

[himitsu]

Siehe Antwort #4, die letzten beiden Zeilen.

[himitsu]

Property mit Name, aber ohne Typ-Definition:

Man kann auf diese Weise das Property in der Sichbarkeit verschieben (aber immer nur nach oben -> sichtbarer) oder es erweitern/ändern (z.B. das Default oder auch Getter/Setter ändern/hinzufügen).

Siehe TCustomEdit und TEdit.
TCustomEdit implementiert die Grundfunktionen und TEdit setzt nur noch die Sichtbarkeiten. So kann man von TCustomEdit ableiten und muß nicht die Sichtbarkeiten von TEdit übernehmen.


Abstract + Override vergessen = Compilerwarnung, beim erstellen einer Instanz.
siehe z.B. SL := TStrings.Create;