Item(Key: Integer): IMetabaseObjectDescriptor;
Item[Key: Integer]: Prognoz.Platform.Interop.Metabase.IMetabaseObjectDescriptor;
Key. Ключ объекта репозитория.
Свойство Item возвращает описание объекта репозитория с указанным ключом.
Свойство возвращает значение Null, если объект с указанным ключом отсутствует в репозитории.
Sub UserProc;
Var
MB: IMetabase;
MDesc: IMetabaseObjectDescriptor;
Begin
MB := MetabaseClass.Active;
MDesc := MB.Item(100);
If MDesc <> Null Then
Debug.WriteLine(MDesc.Id);
Else
Debug.WriteLine("Объект с ключом 100 отсутствует в репозитории.");
End If;
End Sub UserProc;
После выполнения примера, если в репозитории существует объект с ключом "100", то в консоль среды разработки будет выведен его идентификатор.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
MDesc: IMetabaseObjectDescriptor;
Begin
MB := Params.Metabase;
MDesc := MB.Item[100];
If MDesc <> Null Then
System.Diagnostics.Debug.WriteLine(MDesc.Id);
Else
System.Diagnostics.Debug.WriteLine("Объект с ключом 100 отсутствует в репозитории.");
End If;
End Sub;
См. также: