RichEdit форматирование текста ?!

← →
atmospheric (2004-02-18 14:46) [0]

есть форматированый текст сохраненный в RTF.
пример:
Вариант № %variant% //выравнивание право

%vopros% //жирный высота 14
%otvet% //знак табуляции в начале строки

я загружаю этот файл в RichEdit. Далее надо переменные %variant%, %vopros%, %otvet%, подставить свои значения.
вродебы все просто, НО - впрос не один, а их несколько, тоже самое с ответами. те надо строку %vopros% повторить в RichEdit еще n кол-во раз, но когда я это делаю у нее пропадает форматирование.
Как быть ?

← →
Loneron © (2004-02-18 14:54) [1]

Код в студию

← →
Loneron © (2004-02-18 15:03) [2]

Советую сначала, полностью сформировать текст, а потом его отформатировать. При вставке RichEdit1.Text := RichEdit1.Text + "123" форматирование может потеряться.

← →
atmospheric (2004-02-18 15:10) [3]

а формотировани в RTF файле, а не ручками производится

← →
Loneron © (2004-02-18 15:19) [4]

> строку %vopros% повторить в RichEdit еще n кол-во раз, но
> когда я это делаю у нее пропадает форматирование

Приведите код вот этой операции

← →
atmospheric (2004-02-18 15:51) [5]

а как вообще скопировать форматирование одной строки и пременить ее другой ?
там только есть SelAttributes, DefAttributes

← →
Loneron © (2004-02-18 16:02) [6]

Выделяешь символ (SelStart, SelLength, SelEnd), запоминаешь SelAttributes. Выделяешь другой символ и присваиваешь запомненное значение TextAttributes.

← →
Loneron © (2004-02-18 16:05) [7]

bufAttr: TTextAttributes;
...
RichEdit1.SelStart := ..;
RichEdit1.SelLength := 1;
bufAttr.Assign(RichEdit1.SelAttributes);
RichEdit1.SelStart := ..;
RichEdit1.SelLength := 1;
RichEdit1.SelAttributes.Assign(bufAttr);

← →
atmospheric (2004-02-18 17:11) [8]

что то не пашет :(

← →
atmospheric (2004-02-18 17:16) [9]

VO := "%vopros%"; k := pos(VO, RichEdit1.Text); if k <> 0 then begin RichEdit1.SelStart := k-1; RichEd1it1.SelLength := length(VO); //vop := RichEdit1.SelAttributes; vop.Assign(RichEdit1.SelAttributes); end; RichEdit1.SelAttributes := vop; RichEdit1.Lines.Add("xxx");

← →
atmospheric (2004-02-18 17:46) [10]

ау ?!

RichEdit форматирование текста ?! Найти похожие ветки