Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

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]

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

---

← →
Erik ©   (2004-01-27 11:21) [4]

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

---

← →
Serge ©   (2004-01-27 11:21) [5]

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

Удачи всем!

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c