Всем привет!

Я уже неоднократно сталкивался с кодом вроде этого:

Код

class function GetInstance; const  instance: TSomeClass = nil; begin  if instance = nil then    instance:= TSomeClass.Create(); //В этом месте - ругается....  Result:= instance; end;

Вообще-то понятно почему он ругается..., но это ж не я придумал такой код. Как я понимаю для его работы нужна какая-то директива компиляции. Если не секрет, то какая. Я использую
D7. Если этот код полная чушь, на что у меня есть подозрения, то посоветуйте наиболее Объектно-ориентированный подход к шаблону Singleton. Я использую переменную, объявленную после implementation.

Ну как ты можешь создавать TSomeClass в константе, да и код

Код

if instance = nil then

абсолютно не актуален зачем проверать на нулевое значение, если константа instance будет всегда nil, на то она и константа

Насчет констант: если у константы объявлен тип, то она является обычной переменной, только в неё писать ничего нельзя обычным :=

Вот пример:

Код

procedure TForm1.Button1Click(Sender: TObject); const  x : integer = 1; var  x1, x2 : integer; begin  x1 := x;  PInteger(@x)^ := x+1; // в правой части компилятор подставит адрес константы x, а не её значение !  x2 := x;  Caption := IntToStr(x1) + ' ' + IntToStr(x2); end;

Даже если x является локальной, все равно получитя так:
при первом клике выдаст 1 и 2
при втором 2 и 3
при третьем 3 и 4
и т.д.
Т.е. начальное значение не восстанавливается, что, по-моему, тебе и надо.

Так что, твой код почти нормальный, только странно, что в константу пишется обычным присвоением...
Может и правда, где-то можно разрешить изменение констант какой-нибудь директивой ?

А и правда, есть директива {$J+} или Project->Options->Compiler->Assignable Typed Constants !
Так что в примере выше можно было писать x := x + 1 или Inc(x) !

Immortal, я ж говорю - это не мой код, если я вспомню ссылку на тот код - дам её. А вот собственно она - Singleton a это цитата с этой странички...

Цитата

class function TProgressor.AccessInstance(Request: Integer): TProgressor; const   FInstance: TProgressor = nil; begin   case Request of     0: ;     1: if not Assigned(FInstance) then FInstance := CreateInstance;     2: FInstance := nil;   else     raise Exception.CreateFmt('Illegal request %d in AccessInstance', [Request]);   end;   Result := FInstance; end

p0s0l, спасибо . А то знаешь, не люблю код писаный через одно место.... А шаблон Singleton в делфях реализовать по другому сложно (ну нет тут статических полей, Bolrand ещё о таком чуде не знает )