GetObjectKeyById(Value: String): Integer;
GetObjectKeyById(Value: string): uinteger;
Value. Идентификатор объекта.
Метод GetObjectKeyById возвращает уникальный ключ объекта, идентификатор которого передается посредством входного параметра.
При использовании метода в коде на Fore, если объект с указанным идентификатором не существует, то метод возвращает значение «-1».
Если код пишется на Fore.NET или в сторонних средах разработки и объект с указанным идентификатором не существует, то метод возвращает значение UInteger.MaxValue.
Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «TestObj».
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
ObjKey: Integer;
Begin
MB := MetabaseClass.Active;
ObjKey := MB.GetObjectKeyById("TestObj");
If ObjKey <> -1 Then
MB.DeleteObject(ObjKey);
End If;
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
ObjKey: UInteger;
Begin
MB := Params.Metabase;
ObjKey := MB.GetObjectKeyById("TestObj");
If ObjKey <> uinteger.MaxValue Then
MB.DeleteObject(ObjKey);
End If;
End Sub;
После выполнения примера, если в репозитории существует объект с идентификатором «TestObj», то он будет удалён.
См. также: