CreateLiteral(Text: String): ITerm;
Text. Текст литерального терма.
Метод CreateLiteral создает литеральный терм.
Литеральный терм отличается от пользовательского терма возможностью редактирования, т.е. есть возможность редактировать текст внутри литерального терма, и нельзя выделить фрагмент текста внутри пользовательского терма.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием Button1 и компонента TermEdit с наименованием TermEdit1.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Terms: ITermList;
Te: ITerm;
i: Integer;
Begin
Terms := TermEdit1.Terms;
Te := Terms.CreateCustom("A", "@a");
i := TermEdit1.PutTerm(Te);
TermEdit1.Hyperlink(i) := True;
Te := Terms.CreateLiteral("+");
TermEdit1.PutTerm(Te);
Te := Terms.CreateCustom("B", "@b");
i := TermEdit1.PutTerm(Te);
TermEdit1.Hyperlink(i) := True;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку для компонента TermEdit1 будет создано три терма, из которых будет составлено выражение. Термы будут отображаться в виде гиперссылок.
См. также: