VPF::Единственный объект - Форум программистов

Cheba

Дата 13.6.2005, 12:41 (ссылка)

(нет голосов)

Загрузка ...

pointless one

Профиль
Группа: Vingrad developer
Сообщений: 1777
Регистрация: 27.11.2003
Где: /dev/null

Репутация: 1
Всего: 62

Нужно чтобы можно было создать только один объект класса. При двух объектах, прога будет глючиь (теоретически). Очень хотелось бы сделать невозможным создание нескольких объектов без разных глобальных флагов. Возможно ли такое? И если возможно, то как?

--------------------

Как правильно задавать вопросы

p0s0l

Дата 13.6.2005, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Это как ?
Если я делаю так:
obj1 := TOnlyOneObject.Create;
obj2 := TOnlyOneObject.Create;

То что должно быть в obj2 ? nil ? или значение obj1 ?

--------------------

С уважением, г-н Посол.

Cheba

Дата 13.6.2005, 15:19 (ссылка)

(нет голосов)

Загрузка ...

pointless one

Профиль
Группа: Vingrad developer
Сообщений: 1777
Регистрация: 27.11.2003
Где: /dev/null

Репутация: 1
Всего: 62

Лучше было бы сгенерировать какую-нибудь исключенитеьную ситуацию. Но вожно и любой из выше указанных вариантов.

--------------------

Как правильно задавать вопросы

p0s0l

Дата 13.6.2005, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Искл. ситуацию сделать проще smile

Если объект создаётся 1 раз, и потом не уничтожается до окончания программы, то вполне можно так:

Код

{$J+} // включение Assignable Typed Constants
constructor TUniqueObject.Create;
const AlreadyExists : boolean = False;
begin
  inherited;
  Assert (AlreadyExists = False, 'Объект ' + ClassName + ' уже существует!');
  AlreadyExists := True;
end;

Если же объект может уничтожаться, потом пересоздаваться, то можно сделать в классе вспомогательную функцию-проверялку, убеждающуюся в единственности объекта:

Код

{$J+}

type
  TUniqueObject = class (TWinControl)
  private
    procedure SetUniqueness (Flag : boolean);
  public
    constructor Create;
    destructor Destroy; override;
  end;

procedure TUniqueObject.SetUniqueness(Flag : Boolean);
const Unique : TObject = nil;
begin
  if Flag then
  begin
    Assert (Unique = nil, 'Объект ' + ClassName + ' уже существует!');
    Unique := Self;
  end
  else
    if Unique = Self then Unique := nil;
// (это нужно было т.к. исключение в конструкторе проводит к вызову деструктора)
end;

constructor TUniqueObject.Create;
begin
  inherited;
  SetUniqueness (True);
end;

destructor TUniqueObject.Destroy;
begin
  SetUniqueness (False);
  inherited;
end;

PS: Хотя принципом... не отличается от глобального флага smile

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »