Доступ к свойствам дочернего класса из основной формы в Delphi

Delphi , Технологии , Объектно-ориентированное программирование

При работе с объектно-ориентированным программированием в Delphi часто возникает необходимость доступа к свойствам и методам дочерних классов из основной формы. В данной статье мы рассмотрим, как можно организовать такой доступ на примере класса TCorrectAnswer, являющегося дочерним по отношению к TAnswers.

Шаг 1: Создание классов

Сначала создадим необходимые классы. В примере ниже представлен класс TAnswers и его дочерний класс TCorrectAnswer, который расширяет функциональность TAnswers добавлением нового свойства CorrectAnswer.

unit Answers;
interface
uses
  {$IFDEF UNIX}
  CThreads,
  {$ENDIF}
  Classes, SysUtils;
type
  TAnswers = class
  protected
    Num: Byte;
    UserAnswer: Char;
  public
    constructor Create(N: Byte; U: Char);
    procedure SetNum(N: Byte);
    function GetNum(): Byte;
    procedure SetUserAnswer(U: Char);
    function GetUserAnswer(): Char;
  end;

  TCorrectAnswer = class(TAnswers)
  private
    FCorrectAnswer: Char;
  public
    constructor Create(N: Byte); overload;
    constructor Create(N: Byte; C: Char; U: Char); overload;
    property CorrectAnswer: Char read GetCorrectAnswer write SetCorrectAnswer;
  end;
implementation
// Остальная часть реализации классов
end.

Шаг 2: Использование дочернего класса в форме

Для использования TCorrectAnswer в главной форме необходимо включить в неё соответствующую единицу Answers. Затем можно создать экземпляр TCorrectAnswer и работать со свойствами и методами класса.

unit Unit1;
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
  Answers; // Включаем необходимую единицу
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
  CorrectAnswer: TCorrectAnswer;
implementation
{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  CorrectAnswer := TCorrectAnswer.Create(0); // Создаем экземпляр класса
  try
    CorrectAnswer.CorrectAnswer := 'C'; // Устанавливаем значение свойства
    ShowMessage(CorrectAnswer.CorrectAnswer); // Получаем значение свойства
  finally
    CorrectAnswer.Free; // Освобождаем выделенную память
  end;
end;
end.

Шаг 3: Обработка исключений

В примере использован блок try-finally для обеспечения корректного освобождения памяти в случае возникновения исключений. Это важно для предотвращения утечек памяти.

Шаг 4: Оптимизация кода

Если в коде нет причин ожидать возникновения исключений и все операции безопасны, можно рассмотреть возможность упрощения кода за счет удаления блока try-finally. Однако, стоит помнить о потенциальных рисках и оставить блок для будущей перестраховки.

Заключение

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

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

Context: В статье рассматривается доступ к свойствам и методам дочернего класса из основной формы в Delphi, с примером использования класса TCorrectAnswer, который наследует класс TAnswers.

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

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

:: Главная :: Объектно-ориентированное программирование ::