Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];

Вниз

Не форматированный текст из 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, именно в таком виде, в каком они тебе нужны - т.е. без тегов форматирования, вообще без всякого форматирования.


 
Fly`   (2002-06-11 12:49) [6]

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


 
Fly`   (2002-06-11 12:51) [7]

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



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

Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.007 c
7-77635
Vitaly
2002-03-28 16:15
2002.06.24
Не получается переписать Audio-CD на болванку.


3-77266
Бобка
2002-05-30 12:17
2002.06.24
Помогите решить проблему с DBComboBox


3-77276
Lena
2002-05-30 14:13
2002.06.24
Чтение из Blob-поля


1-77419
_dron_
2002-06-10 15:49
2002.06.24
Ошибка при инсталляции D6


14-77559
Бармен
2002-05-19 11:37
2002.06.24
Неделю назад поменял комп :-(((





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский