Strict protected

Adam Boduch

2006-01-24 17:28:22
2010-10-31 18:27:08
0 komentarzy
2278 odsłon

strict protected - konstrukcja języka Delphi

Konstrukcja strict private związane jest z tematyką programowania obiektowego, a konkretnie hermetyzacją. Metody czy pola umieszczone w sekcji strict protected są określone jako ściśle chronione, dostęp do nich z poziomu innej klasy jest niemożliwy, chyba że z poziomu klasy potomnej.

Konstrukcja ta dostępna jest jedynie w Delphi 8 i Delphi 2005

type
  TMain = class
    strict private
      procedure Main;
  end;

var
  Main: TMain;
begin
  Main := TMain.Create;
  Main.Main;  // <-- tu jest błąd
end

Powyższy przykład pokazuje niemożność uzyskania dostępu do metody Main z klasy TMoja. Kompilator zgłosi błąd: [Error] WinForm2.pas(101): Cannot access protected symbol TMoja.Main. Wszystko dzięki temu, że metoda Mainznalazła się w sekcji strict protected, do której dostęp spoza klasy jest zabroniony.

Sekcja Protected oraz strict protected różni się tym, iż metody zadeklarowane w tej pierwszej są widoczne na zewnątrz klasy, lecz jedynie w obrębie modułu, w jakim znajduje się klasa. Spójrz na poniższy kod:

program Foo;

{$APPTYPE CONSOLE}

type
  TMain = class
    strict protected
      procedure Main;
  end;

  TMainChild = class(TMain)
  public
    procedure Bar;
  end;

procedure TMain.Main;
begin

end;

procedure TMainChild.Bar;
begin
  Main;
end;

var
  Main : TMainChild;
begin
  Main := TMainChild.Create;
  Main.Bar;
  Main.Free;
end.

W tym wypadku metoda Main z klasy TMainmimo, iż nie jest widoczna na zewnątrz klasy - jest widoczna dla klasy potomnej - TMainChild.

Nie można używać słowa kluczowego strict w połączeniu z public albo z published. Taki błąd spowoduje wyświetlenie komunikatu: [Error] WinForm2.pas(93): PRIVATE or PROTECTED expected. Poziomy strict private oraz strict protected zostały wprowadzone ze względu na przystosowanie Delphi do specyfikacji CLS. Programując aplikacje działające dla Win32 w Delphi 2005, projektant także może używać tych poziomów dostępu.

Zobacz też:

Delphi » .NET

0 komentarzy