[infobos]

Привет всем!

Люди добрые и умные программисты помогите пожалуйста!
Я пишу программу справочник Омега может кто знаком. Проблемма с компонентом RichEdit в нем есть формат RTF.
Вопрос:
1. Можно какнибудь формат RTF загнать в переменную и работать с данными RTF ?
2. Как из переменной RTF вытащить все необходимые данные. Например указать строку и символ в ней и вытащить свойства Tfont (color,charset,height и другие свойства).

На данный момент я в компоненте RichEdit указываю расположение курсора и вытаскиваю от туда свойства командами:

lper2:=Form1.RichEdit1.Paragraph.FirstIndent;
rper2:=Form1.RichEdit1.Paragraph.RightIndent;
Charset2:=Form1.RichEdit1.SelAttributes.Charset;
color2:=Form1.RichEdit1.SelAttributes.Color;
Height2:=Form1.RichEdit1.SelAttributes.Height;
Name22:=Form1.RichEdit1.SelAttributes.Name;
Pitch2:=Form1.RichEdit1.SelAttributes.Pitch;
Size2:=Form1.RichEdit1.SelAttributes.Size;
Style2:=module.stylet(Form1.RichEdit1.SelAttribute s.Style);

Этим методом программа очень долго работает!
Подскажите какие еще варианты есть?

Для полного понятия как работает программа можете загрузить программу справочник на странице: http://sprav.infobos.ru при сохранение страницы видно как курсор быстро перебигает курсором по полю и собирает информацию о свойстве на каждом символе. И видно, что из-за такой грубой моей выдумки прога долго сохраняет страницу.

В эту программу вложены все мои труды и выдумки и время потрачено не малое.

[Rjkzy]

объяви переменную типа TFont и тогда сможешь сохранять в неё сразу же все данные о шрифте. А так задача не совсем ясна если честно, видать туповат

[infobos]

Интересный вариант! Но у него есть недостаток, что если пользователь вставил текст уже в закодированном формате RTF ? А если вставил, то мне опятьже надо както вывести и обработать его вставленный текст, это только лишние заморочки!

[Rjkzy]

ХХХХХХХХХХХХХХХХ