Programowanie w języku Delphi » .NET

Strict protected

  • 2010-10-31 18:27
  • 0 komentarzy
  • 723 odsłony
  • Oceń ten tekst jako pierwszy
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 Main znalazł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 TMain mimo, 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ż: