Не форматированный текст из RichEdit.

← →
Fly` © (2002-06-10 16:05) [0]

Каким образом мне взять неформатированный текст из RichEdit и перенести в Memo1 ?

Содрал из примеров фишку - чего-то не работает ...
procedure TForm1.rxRichEdit1Change(Sender: TObject); var Buffer : PChar; Size : integer; begin Size := Length(rxRichEdit1.Text); {Get length of selected text in Edit1} Inc(Size); {Add room for null character} GetMem(Buffer, Size); {Creates Buffer dynamic variable} rxRichEdit1.GetSelTextBuf(Buffer,Size); {Puts Edit1.Text into Buffer} Memo1.Clear; Memo1.SetSelTextBuf(Buffer); FreeMem(Buffer, Size) end;

← →
VID © (2002-06-10 18:14) [1]

Подожди, а Memo1.Lines.Assign (RichEdit1.Lines) уже запрещено законодательством ? :)))
Или Memo1.Text := RichEdit1.Text ?

Единственное, что тебя не порадует, так это ограничение кол-ва строк в memo, ~32000... Т.е. Больше этого числа строк Memo1 в себя запихнуть :) не сумеет...

← →
Fly` © (2002-06-10 18:39) [2]

да неее.... мне нужен неформатированный текст форматат RTF . Я так подразумеваю есть ведь Исходный текст и при прорисовке RichEdit этот текст форматирует как надо. А мне надо , чтобы в мемо как раз попал текст в формате RTF.... может я чего не понимаю ?.. Разъясните плиз ...

← →
777 © (2002-06-10 19:04) [3]

в каком смысле неформатированный???
просто текст - см. VID.

если хочешь исходные данные rtf
то сохрани RichEdit.lines как файл и
потом загрузи в memo.

если же нужен разноцветный (и т.д.) текст,
то придется скорее всего воспользоваться
сторонними компонентами.

← →
Fly` © (2002-06-10 19:09) [4]

>если хочешь исходные данные rtf
>то сохрани RichEdit.lines как файл и
>потом загрузи в memo.

а по другому никак ?

← →
VID © (2002-06-10 21:33) [5]

TO 777, Fly`: Вы здесь какую-то путаницу создали. Если RechEdit1.PlainText = False, то при сохранении ФОРМТИРОВАННОГО текста в rtf-файл в этот файл запишуться также теги форматирования формата RTF. И при загрузке содержимого этого файла в MEMO1, этот самый memo, заполниться такой бурдой, что текст вы там с трудом различать будете. Бурда - это теги форматирования.

Зачем извращаться, с файлами ?

SPECIAL TO Fly`: RichEdit в своём свойстве LINES хранит текст, а теги (элементы) форматировани в свойствах DefAttributes и SelAttributes. Поэтому написав Memo1.Lines.Assign(RichEdit1.lines), в memo1 загрузиться строки из RichEdit1, именно в таком виде, в каком они тебе нужны - т.е. без тегов форматирования, вообще без всякого форматирования.

VID . В том-то и дело, что мне нужны Теги форматирования !!! Я же это в исходном вопросе так и написал !!! :-)
А проблем переноса самого текста из RichEdit в Memo - их вообще нету ! :-)

И единственный вопрос теперь остался, можно ли эти тэги увидеть без записи в файл?

Не форматированный текст из RichEdit. Найти похожие ветки