Zugriff auf Unterklasse absichern

[mjustin]

Zitat von himitsu:

Ginge statt diesem auch ein Marker-Interface (so kenne ich es in Java)?

Delphi-Quellcode:

type
  TMethode = class
    ...
    function IsNullObject: Boolean; {virtual;}
  end;

  TMethodeNullObject = class(TMethodeNullObject);

function TMethode.IsNullObject: Boolean;
begin
  Result := Self is TMethodeNullObject;
end;

oder ohne Ableitung

Delphi-Quellcode:

type
  TMethode = class
    ...
    function IsNullObject: Boolean; {virtual;}
  end;

function TMethode.IsNullObject: Boolean;
begin
  Result := Self = FNullObject;
end;

Z.B.

Delphi-Quellcode:

type
  INullObject = interface
[GUID]
end;

TMethodeNullObject = class(TMethodeNullObject, INullObject);


und testen dann mit 

Supports(FNullObject, INullObject);

Dadurch spart man das Deklarieren klassenspezifischer Nullobjektklassen.