Item(Index: Integer): IPrxTextField;
Index - индекс текстового поля в коллекции.
Свойство Item возвращает текстовое поле по заданному индексу.
Для выполнения примера понадобится регламентный отчёт с идентификатором «Report» и созданным на нём текстовым листом «Документ1».
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Doc: IPrxDocument;
TFs: IPrxTextFields;
Tf: IPrxTextField;
i: Integer;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("Report").Bind As IPrxReport;
Doc := Report.Sheets.FindByName("Документ1") As IPrxDocument;
TFs := Doc.TextFields;
For i := 0 To TFs.Count - 1 Do
Tf := TFs.Item(i);
Debug.WriteLine(Tf.Name + ": " + Tf.Value);
End For;
End Sub Main;
После выполнения примера в консоль будет выведен список всех созданных на листе текстовых полей.
См. также: