ITermList.CreateLiteral

Синтаксис

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" будет создано три терма, из которых будет составлено выражение. Термы будут отображаться в виде гиперссылок.

См. также:

ITermList