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

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

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

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