RemoveByIndex(Index: Integer; [KeepText: Boolean = False]);
Index. Индекс текстового поля, которое необходимо удалить.
KeepText. Признак, указывающий на необходимость сохранить текст удаляемого текстового поля. Значение по умолчанию - False.
Метод RemoveByIndex позволяет удалять текстовое поле регламентного отчёта по заданному индексу.
Для выполнения примера понадобится форма с размещёнными на ней компонентами UiReport, ReportBox и Button с идентификаторами «UiReport1», «ReportBox1» и «Button1». К компоненту UiReport подключен регламентный отчёт.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Report: IPrxReport;
Doc: IPrxDocument;
TFs: IPrxTextFields;
i: Integer;
Begin
Report := UiReport1.Instance As IPrxReport;
Doc := Report.Sheets.FindByName("Документ1") As IPrxDocument;
TFs := Doc.TextFields;
Report.Recalc;
For i := Tfs.Count - 1 To 0 Step - 1 Do
TFs.RemoveByIndex(i, True);
End For;
End Sub Button1OnClick;
После выполнения примера найденные по указанному индексу текстовые поля будут удалены.
См. также: