Инкапсуляция

[psycho-coder]

Иногда, при работе с несколькими формами, нужно чтобы одна форма вернула какой-то результат.
Например чат: нужно забанить плохого юзверя.
Выбираем из списка пользователей нужного, жмем "Бан" и нам показывается окошко, где нас прося ввести (например) кол-во минут бана.
Раньше я делал вот так:
Form1 - главная,
Form2 - подчиненная.

unit Form2;
...
public
  m_banTime: Integer;

unit Form1;
...
Form2.ShowModal;
banTime := Form2.m_banTime;

Такая реализация не подходит для ООП, т.к. мы знаем имя переменной. Следовательно для сохранения хорошего стиля нужно что то другое.
Потом думал сделать через свойства, но от этого я отказался, мне этот способ не понравился.

И вот, недавно, додумался. Идея банальна...

unit Form2;
...
private
  m_banTime: Integer;
public
  function GetBanTime: Integer;

function TForm2.GetBanTime: Integer;
begin
  Result := 0;
  Self.ShowModal;
  Result := m_banTime;
end;

// Например в кнопке Ok
procedure TForm2.Button1Click(Sender: TObject);
begin
  if Edit1.Text <> '' then
    m_banTime := StrToInt(Edit1.Text);
  Close;
end;

и

unit Form1;
...
banTime := Form2.GetBanTime;

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

P.S. Писал прямо сюда, возможны ошибки.

[Utkin]

Собственно не уловил, вопрос или тема для обсуждения? Возникла проблема или Вам просто интересно мнение других по данному примеру?

[psycho-coder]

Просто поделился )))

[s.Creator]

Предпочитаю такую инкапсуляцию:

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
    m_banTime: Integer;
  public
    class function GetBanTime: Integer;
  end;

// var  Form2: TForm2; удаляем за ненадобностью
// не забываем удалять Application.CreateForm(TForm2, Form2); из .dpr

implementation

{$R *.dfm}

{ TForm2 }

class function TForm2.GetBanTime: Integer;
var
  form: TForm2;
begin
  form := Self.Create(nil);
  try
    form.ShowModal;
    // ...
    Result := form.m_banTime;
  finally
    form.Free;
  end;
end;

end.

Работает действительно в одну строку

banTime := TForm2.GetBanTime;

А строка

form := Self.Create(nil);

позволяет создавать наследников:
если

TForm3 = class(TForm2)

то

banTime := TForm3.GetBanTime;

тоже будет работать

[psycho-coder]

Может тему прикрепить? Как думают модераторы?