Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.026 c