Присвоить значение защищённому свойству класса

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

unit TestClass;

interface

type
  TTest = class
  protected
    ProtectedData: Integer;
  public
    PublicData: Integer;
    function GetValue: string;
  end;

implementation

uses
  SysUtils;

function TTest.GetValue: string;
begin
  Result := Format ('Public: %d, Protected: %d',
    [PublicData, ProtectedData]);
end;

end.

unit ProtForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
  TestClass;

procedure TForm1.Button1Click(Sender: TObject);
var
  Obj: TTest;
begin
  Obj := TTest.Create;
  Obj.PublicData := 10;
//  Obj.ProtectedData := 20;  //won't compile
  ShowMessage (Obj.GetValue);
  Obj.Free;
end;

type
  TFake = class (TTest);

procedure TForm1.Button2Click(Sender: TObject);
var
  Obj: TTest;
begin
  Obj := TTest.Create;
  Obj.PublicData := 10;
  TFake (Obj).ProtectedData := 20; // compiles!
  ShowMessage (Obj.GetValue);
  Obj.Free;
end;

end.

Загрузить весь проект

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

В первом процедедуре, когда вы пытаетесь установить Obj.ProtectedData := 20; , компилятор не позволяет это сделать, потому что это запрещено.

Однако, во втором процедедуре, вы создаете новый класс TFake, который наследуется от TTest. Поскольку TFake является производным классом от TTest, он может доступаться к защищенным членам TTest, включая ProtectedData.

Чтобы решить это без создания отдельного класса, как TFake, вы можете сделать свойство ProtectedData публичным в классе TTest. Однако, сделав его публичным, вы делаете его доступным из любого места, что может не быть тем, что вы хотите.

Вот пример модифицированного кода:

unit TestClass;

interface

type
  TTest = class
  protected
    ProtectedData: Integer;
  public
    PublicData: Integer;
    function GetValue: string;
  end;

implementation

uses
  SysUtils;

function TTest.GetValue: string;
begin
  Result := Format('Public: %d, Protected: %d', [PublicData, ProtectedData]);
end;

end.

unit ProtForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
  TestClass;

procedure TForm1.Button1Click(Sender: TObject);
var
  Obj: TTest;
begin
  Obj := TTest.Create;
  Obj.PublicData := 10;
  Obj.ProtectedData := 20; // теперь компиляция проходит!
  ShowMessage(Obj.GetValue);
  Obj.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Obj: TTest;
begin
  Obj := TTest.Create;
  Obj.PublicData := 10;
   // TFake(Obj).ProtectedData := 20; // теперь не нужно
  ShowMessage(Obj.GetValue);
  Obj.Free;
end;

end.

Теперь вы можете доступаться к свойству ProtectedData напрямую из экземпляра TTest.

В статье описывается, как в Delphi присваивать значение защищённому свойству класса, используя наследование или создание интерфейса для доступа к защищенным свойствам.

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

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

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