FindNext(Info: IMetabaseObjectFindInfo): IMetabaseObjectDescriptor;
Info - информация, необходимая для поиска описания объекта.
Метод FindNext осуществляет поиск следующего объекта, удовлетворяющего условиям поиска.
Если объект не найден, то метод возвращает значение Null.
Условия поиска передаются посредством параметра Info.
Sub Main;
Var
MB: IMetabase;
FInfo: IMetabaseObjectFindInfo;
MDesc: IMetabaseObjectDescriptor;
i: Integer;
Begin
MB := MetabaseClass.Active;
FInfo := MB.CreateFindInfo;
FInfo.Text := "Form";
FInfo.Attribute := FindAttribute.NameOrIdent;
FInfo.WholeWordsOnly := False;
MDesc := MB.Root;
For i := 0 To 9 Do
MDesc := MDesc.FindNext(FInfo);
If MDesc <> Null Then
Debug.WriteLine("Идентификатор: " + MDesc.Id + "; Наименование: " + MDesc.Name);
Else
Break
End If;
End For;
End Sub Main;
После выполнения примера будет осуществлен поиск первых десяти объектов, содержащих в наименовании или идентификаторе текст "Form". Список найденных объектов будет выведен в консоль среды разработки.
См. также: