Использование свойств в Delphi: особенности переопределения и доступа

Delphi , Компоненты и Классы , Свойства и События

В мире разработки на Delphi и Pascal часто возникают ситуации, когда в наследуемых классах появляются свойства с одинаковыми именами. Это может быть вызвано различными причинами, в том числе случайным совпадением или недопониманием особенностей языка. Давайте рассмотрим, как в Delphi происходит переопределение свойств и какие правила доступа к ним существуют.

Проблема переопределения свойств

В Delphi при наследовании классов TBase свойствами класса TSub, которые имеют одинаковые имена, происходит их "перекрытие" в дочернем классе. Это означает, что если дочерний класс определяет свойство с тем же именем, что и в родительском классе, то при вызове этого свойства будет использоваться реализация из дочернего класса.

type
  TBase = class(TObject)
  private
    FID: Integer;
  public
    property ID: Integer read FID write SetID;
  end;

type
  TSub = class(TBase)
  private
    FID: Longword;
  public
    property ID: Longword read FID write FID;
  end;

В приведенном примере, если вызвать свойство ID из экземпляра класса TSub, будет использовано свойство с реализацией в классе TSub, несмотря на то, что в TBase уже существует свойство с тем же именем.

Правила доступа к свойствам

В зависимости от контекста вызова свойства ID, будет использоваться соответствующее свойство из класса, через который осуществляется вызов. Например, в методе TSub будет вызвано свойство ID класса TSub, а в методе TBase — свойство ID класса TBase.

procedure TSub.Foo;
begin
  ID := 5; // Используется TSub.ID
  inherited ID := 6; // Используется TBase.ID
end;

procedure TBase.FooBar;
begin
  ID := 5; // Используется TBase.ID
end;

var
  Sub: TSub;
  Base: TBase;
begin
  Sub := TSub.Create;
  try
    Sub.ID := 1; // Присвоение значения свойству TSub.ID
    TBase(Sub).ID := 2; // Присвоение значения свойству TBase.ID
    WriteLn(Sub.ID); // Выведет 1
    WriteLn(TBase(Sub).ID); // Выведет 2
    Base := Sub;
    WriteLn(Base.ID); // Выведет 2, так как Base имеет тип TBase
  finally
    Sub.Free;
  end;
end;

Заключение

Переопределение свойств в Delphi позволяет создавать классы с новыми или измененными поведениями свойств, имеющих те же имена, что и в родительских классах. Это может быть полезно, например, при создании специализированных коллекций, таких как TMyList, где свойства и методы адаптированы под конкретные нужды.

type
  TMyList = class(TList)
  private
    function GetItem(Index: Integer): TMyObject;
    procedure SetItem(Index: Integer; Value: TMyObject);
  public
    property Items[Index: Integer]: TMyObject read GetItem write SetItem;
  end;

Современные версии Delphi, такие как Delphi 2009 с поддержкой генерализованных типов, упрощают реализацию такой функциональности, предоставляя более мощные возможности для работы с типами и их переопределениями.

Важно помнить, что механизм "перекрытия" свойств не связан с механизмами переопределения виртуальных функций и полиморфизма. Правильнее использовать термин "перекрытие" или "переопределение на уровне свойств" для описания данного явления.

Создано по материалам из источника по ссылке.

Особенности переопределения и доступа к свойствам в языке программирования Delphi и Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Свойства и События ::