Передача данных между формами в Delphi: как организовать взаимодействие без публичных переменных

Delphi , Программа и Интерфейс , Формы

Передача данных между формами в Delphi – это важный аспект разработки приложений, который требует правильного подхода, особенно с точки зрения объектно-ориентированного программирования (ООП). В данной статье мы рассмотрим, как можно организовать взаимодействие между формами без использования публичных переменных, что является хорошей практикой в ООП.

Основы проблемы

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

Решение проблемы: Декуплирование данных от GUI

Чтобы решить эту проблему, необходимо декуплировать данные от GUI. Это означает, что данные не должны быть привязаны к конкретной форме, а должны быть представлены в виде отдельных объектов, которые могут быть переданы между формами и классами.

Пример записи данных

Создайте запись, которая будет содержать данные, полученные от пользователя:

type
  TGatheredData = record
    Name: String[40];
    Age: Byte;
    Location: String[40];
  end;

Использование записи в форме

В вашей форме TForm1 можно создать конструктор, который принимает параметр типа TGatheredData:

constructor TForm1.Create(AOwner: TComponent; var GatheredData: TGatheredData );
begin
  inherited Create(AOwner);
  FGatheredData := GatheredData;
  // Здесь можно инициализировать данные для элементов формы
end;

При закрытии формы можно обновить данные, полученные из элементов управления:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Self.ModalResult = mrOk then
  begin
    // Обновляем данные записи
    FGatheredData.Name := EditName.Text;
    FGatheredData.Age := SpinButtonAge.Value;
    FGatheredData.Location := EditLocation.Text;
  end;
end;

Передача данных управляющему классу

После получения данных из формы, вы можете передать запись TGatheredData в управляющий класс для создания объекта. Управляющий класс должен быть в своей отдельной единице, чтобы избежать циклических зависимостей.

Пример использования RTTI

Для передачи данных управляющему классу без прямого доступа к нему, можно использовать механизм RTTI (Runtime Type Information), который позволяет работать с объектами на уровне метаданных:

procedure TManager.PassData(var Data: TData; SomeObject: TObject);
begin
  if SomeObject is TDataConsumer then
    TDataConsumer(SomeObject).DoSomethingWithData(Data);
end;

Альтернативный подход: Использование TDatamodules

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

Заключение

Используя предложенные подходы, вы сможете избежать использования публичных переменных и улучшить структуру вашего приложения, делая его более модульным и удобным для поддержки и расширения.

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

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

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

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

:: Главная :: Формы ::