SelAttributes - где что находится ???

← →
Serge © (2004-01-27 09:46) [0]

Доброго всем утра! Написал вчерась такой вот код (навороченый ужасно Ж:) ) :
Var I: integer; s: String; Begin StartBoldPos := 0; s := ""; For I := 1 To Length(Editor.Text) Do Begin Editor.SelStart := i; Editor.SelLength := 0; If (StartBoldPos = 0) And (fsBold In Editor.SelAttributes.Style) Then Begin StartBoldPos := i; s := s + " "; Memo1.Lines.Add(IntToStr(i) + " " + Editor.Text[i]); End; If (StartBoldPos <> 0) And (Not (fsBold In Editor.SelAttributes.Style)) Then Begin StartBoldPos := 0; EndBoldPos := i; s := s + ""; End; s := s + Editor.Text[i]; End; memo1.Text := s;

Предназначение сего - из строки RichEdit-a
Провероч ный те кст получить как-бы "View Source" - [B]Про[/B]вероч[B]ный[/B] те[B]кс[/B]т.
Меня терзают смутные сомнения что я очень криво это реализовал. Если кто может помочь советом, поделится опытом - прошу Вас.
Заранее спасибо!

← →
Serge © (2004-01-27 09:49) [1]

Накладочка с тэгами
Var I: integer; s: String; Begin StartBoldPos := 0; s := ""; For I := 1 To Length(Editor.Text) Do Begin Editor.SelStart := i; Editor.SelLength := 0; If (StartBoldPos = 0) And (fsBold In Editor.SelAttributes.Style) Then Begin StartBoldPos := i; s := s + "[b]"; Memo1.Lines.Add(IntToStr(i) + " " + Editor.Text[i]); End; If (StartBoldPos <> 0) And (Not (fsBold In Editor.SelAttributes.Style)) Then Begin StartBoldPos := 0; EndBoldPos := i; s := s + "[/b]"; End; s := s + Editor.Text[i]; End; memo1.Text := s;

← →
TUser © (2004-01-27 10:23) [2]

Вроде вполне нормально. Только я бы еще использовал beginUpdate и endUpdate.

← →
Serge © (2004-01-27 10:40) [3]

Работает то вроде нормально - а интересно "не по-символьное" решение есть ?

SaveToStream неподойдет?

Спасибо за ответ.
Вопрос отпал вроде-бы. Я вспомнил про SynEdit - есть у них компонента экспорта в HTML - покопаюсь там.

Удачи всем!

SelAttributes - где что находится ??? Найти похожие ветки