Скачать: CL | DM;

Singleton   Найти похожие ветки 

← →
jack128 ©   (2004-11-23 13:41) [40]

Palladin ©   (23.11.04 13:37) [39]
и создать твой объект можно. Через классовую ссылку ;-)

---

← →
Palladin ©   (2004-11-23 13:43) [41]

Ну и хрен с ним...


>  [40] jack128 ©   (23.11.04 13:41)

через какую классовую ссылку?

---

← →
jack128 ©   (2004-11-23 14:09) [42]

var
 cl: TClass;
begin
 cl := TSingletone;
 with cl.Create do
   ...  
end;

---

← →
Суслик ©   (2004-11-23 14:15) [43]

>  [42] jack128 ©   (23.11.04 14:09)

create должен быть virtual
иначе создаться объект класса tsingletone, но выполниться тело конструктора tobject

---

← →
jack128 ©   (2004-11-23 14:45) [44]

Суслик ©   (23.11.04 14:15) [43]
Спасибо, что напомнил ;-) Но в данном случае это не имеет значение.

---

← →
VMcL ©   (2004-11-23 15:34) [45]

>>Palladin ©  (23.11.04 13:37) [39]

Даже без FreeAndNil.
TObject(SingleObject).Free;
:-p

---

← →
Palladin ©   (2004-11-23 15:41) [46]

Это проблема TObject :) Я не виноват что в нем Free невиртуальный :)

---

← →
Суслик ©   (2004-11-23 15:43) [47]

> Это проблема TObject :)

это не проблема tobject, это особенность дельфи - нет понижения видимости.
Может это и к лучшему...

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.53 MB
Время: 0.065 c