Метод WillDelete (Объект IIngeoDbSysObjectsSink)

Синтаксис

Язык	Описание
VBScript, JavaScript	SubWillDelete(aSysObjectType, aSysObject)
Visual Basic	Sub WillDelete(ByVal aSysObjectType As TIngeoSysObjectType, ByVal aSysObject As Object)
Delphi	procedure WillDelete(aSysObjectType: TIngeoSysObjectType; aSysObject: IDispatch);
C, C++	HRESULT WillDelete(TIngeoSysObjectType aSysObjectType, IDispatch aSysObject);

Параметры

aSysObjectType

Тип системного объекта.

aSysObject

Системный объект.

Пример

sub DBSysObjects_WillDelete(aSysObjectType, aSysObject)
s = "Будет удален"
if aSysObjectType = 0 then
   s = s & "а территория"
end if
if aSysObjectType = 1 then
   s = s & " справочник"
end if
if aSysObjectType = 2 then
   s = s & "а растровая карта"
end if
if aSysObjectType = 3 then
   s = s & "а векторная карта"
end if
if aSysObjectType = 4 then
   s = s & " слой"
end if
if aSysObjectType = 5 then
   s = s & " стиль"
end if
if aSysObjectType = 6 then
   s = s & "а семантическая таблица"
end if

s = s & " с именем " & aSysObject.Name
end sub