ClassId: Integer;
ClassId: integer;
The ClassId property determines class of the objects which will be checked on searching.
To specify the class of the object it is necessary to use values contained in the enumerated type MetabaseObjectClass, and MetabaseObjectMetaClass.
"-1" value is set for the property by default and the search is performed among all repository objects.
To execute the example, add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
MDescs: IMetabaseObjectDescriptors;
MDesc: IMetabaseObjectDescriptor;
FInfo: IMetabaseObjectFindInfo;
Begin
MB := MetabaseClass.Active;
FInfo := MB.CreateFindInfo;
FInfo.ClassId := MetabaseObjectClass.KE_CLASS_STDCUBE;
FInfo.WholeWordsOnly := False;
MDescs := MB.Find(FInfo);
For Each MDesc In MDescs Do
Debug.WriteLine("Identifier: " + MDesc.Id + "; Name: " + MDesc.Name);
End For;
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
MDescs: IMetabaseObjectDescriptors;
MDesc: IMetabaseObjectDescriptor;
FInfo: IMetabaseObjectFindInfo;
Begin
MB := Params.Metabase;
FInfo := MB.CreateFindInfo();
FInfo.ClassId := MetabaseObjectClass.KE_CLASS_STDCUBE As integer;
FInfo.WholeWordsOnly := False;
MDescs := MB.Find(FInfo);
For Each MDesc In MDescs Do
System.Diagnostics.Debug.WriteLine(Identifier: + MDesc.Id + "; Name: " + MDesc.Name);
End For;
End Sub;
After executing the example all standard cubes which are contained in the repository are searched. Names and identifiers of the found objects are displayed in the development environment console.
See also: