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

  • Автор темы K-Fire
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

K-Fire

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

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

Kee_Keekkenen

Well-known member
05.09.2006
639
4
#2
ну и напиши в классе процедуру (close), которая будет doc обнулять,
а в коде, где инициализируется класс можно его убивать delete MyClass
 
K

K-Fire

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

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

Код:
Dim mc as MyClass

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

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

If mc is nothing then //DO EXIT
Я понимаю, что нет никаких проблем написать метод класса MyClass.IsInitialize(), и вместо сравнения с Nothing проверять вызывая этот метод. Но хочется написать _правильно_ :rolleyes:
 

Kee_Keekkenen

Well-known member
05.09.2006
639
4
#4
ну, например, сделай так
Код:
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 это процедура
 
M

Mihal

#5
Код:
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

K-Fire

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

/MODERATOR/ А ПО ШАПКЕ за флуд? без спасибо - просто +1 в репу и хватить.
 
Статус
Закрыто для дальнейших ответов.