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;
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.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
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;
See also: