Как отменить инициализацию класса в конструкторе New?

[K-Fire]

Есть следующий код:

Class MyClass
Sub New( doc as NotesDocument)
if doc is nothing then
// тут хочется выйти из кода, но так чтобы экземпляр MyClass был = Nothing
end if
// тут идет нормальный код инициализации
End Sub
EndClass

Что надо написать для того чтобы экземпляр MyClass был = Nothing, кто нить знает?

 

[Kee_Keekkenen]

ну и напиши в классе процедуру (close), которая будет doc обнулять,
а в коде, где инициализируется класс можно его убивать delete MyClass

 

[K-Fire]

Я может криво описал проблему...

Есть код вызывающий класс:

Dim mc as MyClass

Set mc = New MyClass (doc) ' переменная док где-то ранее инициализируется и может быть Nothing

' Я хочу написать ниже следующую проверку:

If mc is nothing then //DO EXIT

Я понимаю, что нет никаких проблем написать метод класса MyClass.IsInitialize(), и вместо сравнения с Nothing проверять вызывая этот метод. Но хочется написать _правильно_

 

[Kee_Keekkenen]

ну, например, сделай так

Class MyClass
public isValid as boolean
Sub New( doc as NotesDocument)
if not doc is nothing then 
isValid = true
exit sub
end if
// тут идет нормальный код инициализации
End Sub
EndClass

ну и проверяй

Dim mc as MyClass
Set mc = New MyClass (doc) ' переменная док где-то ранее инициализируется и может быть Nothing
' Я хочу написать ниже следующую проверку:

If not mc.isValid then
delete mc
end
end if

просто чтобы экземпляр MyClass был = Nothing не получится ведь New это процедура

 

[Mihal]

Class MyClass
Sub New( doc as NotesDocument)
if doc is nothing then

Dim MyObject As Variant
Set MyObject=Me
Delete MyObject

end if
// тут идет нормальный код инициализации
End Sub
EndClass

Вроде как работает...
"Эх, маладёжжжжь!"(с)

 

[K-Fire]

спасибо, работает

/MODERATOR/ А ПО ШАПКЕ за флуд? без спасибо - просто +1 в репу и хватить.