Delphi Класс Внутри Класса

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

type  TOuterClass = class  private    FOuterField: Integer;    type      TInnerClass = class      private        FInnerField: Integer;      public        constructor Create(AInnerFieldValue: Integer);      end;  public    constructor Create(AOuterFieldValue: Integer);  end;constructor TOuterClass.TInnerClass.Create(AInnerFieldValue: Integer);begin  FInnerField := AInnerFieldValue;end;constructor TOuterClass.Create(AOuterFieldValue: Integer);begin  FOuterField := AOuterFieldValue;  // Создаем экземпляр вложенного класса  InnerClass := TInnerClass.Create(42);end;

В данном примере определены два класса: TOuterClass и TInnerClass, второй класс вложен в первый. Класс TInnerClass имеет свое собственное поле FInnerField, а класс TOuterClass имеет поле FOuterField и поле InnerClass, которое представляет экземпляр вложенного класса. Вот некоторые преимущества использования вложенных классов:- Локализация – вложенные классы помогают сгруппировать связанные функции и переменные в одном месте, что облегчает чтение и изменение кода.- Инкапсуляция – вложенные классы не проникают за границы внешнего класса, то есть к ним можно обратиться только через указатель на экземпляр внешнего класса.- Чистота кода – использование вложенных классов делает код более понятным и легко читаемым, так как не нужно создавать отдельные файлы для каждого класса.