Programowanie w języku Delphi » OOP

Class helpers

  • 2010-10-31 18:27
  • 1 komentarz
  • 698 odsłon
  • Oceń ten tekst jako pierwszy
Innowacją wprowadzoną w Delphi 8 jest mechanizm class helpers, umożliwiający rozszerzenie funkcjonalności danej klasy bez konieczności dziedziczenia po niej, czy też wprowadzania jakiejkolwiek zmiany w jej kodzie.

Mechanizm class helpers dostępny jest tylko w Delphi dla .NET

Mechanizm class helpers charakteryzuje się specyficzną konstrukcją:

type
  TFiat = class
    KM : Integer;
  end;
 
  TFiatHelper = class helper for TFiat
    procedure Jedź;
  end;


Przykład ten prezentuje utworzenie klasy TFiatHelper, która prezentuje właśnie mechanizm class helpers, czyli rozszerzenie funkcjonalności klasy TFiat. Oto schemat budowy takiej klasy:

  NazwaKlasy = class helpers for KlasaBazowa;
end;


W miejscu [KlasaBazowa] należy wstawić nazwę klasy, której funkcjonalność ma zostać rozszerzona. Same dodawanie metod i właściwości odbywa się w ten sam sposób co w zwykłej klasie. Spójrzmy na procedurę Jedź z klasy TFiatHelper:

procedure TFiatHelper.Jedź;
begin
  KM := 25;
  MessageBox.Show(Convert.ToString(KM));
end;


Warto zwrócić uwagę, że możemy się bez problemu odwołać do właściwości znajdującej się w klasie TFiat (właściwość KM).

Dzięki class helpers można odwołać się do metody Jedź (która znajduje się w klasie TFiatHelper) z klasy TFiat:

var
  Fiat : TFiat;
begin
  Fiat := TFiat.Create;
  Fiat.Jedź;
end;


Z pozoru dla class helpers nieistotne są sekcje klasy bazowej. Przykładowo, jeżeli zmienna KM znajdzie się w sekcji strict private, to i tak program zostanie skompilowany, lecz w trakcie działania taki kod spowoduje pojawienie się błędu. Podsumowując, metody i pola w klasie bazowej nie mogą znajdować się w sekcji strict private oraz strict protected, jeżeli class helpers ma mieć do nich dostęp.

Klasy typu class helpers mogą zawierać sekcje private/public/protected, Konstruktory, metody wirtualne oraz dynamiczne, a także zmienne wskazujące na dany obiekt.

Zobacz też:

1 komentarz

Adam Boduch 2006-01-25 18:10

Czy w Delphi 2005 oraz 2006 mozna uzywac tego mechanizmu w Delphi dla Win32?