Главная страница
    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.011 c
4-77663
Ptushenko Denis
2002-04-25 09:47
2002.06.24
Смена цветовой палитры в винде


1-77378
Night
2002-06-13 13:40
2002.06.24
Вопрос не по теме, но кажется никто кроме вас мне не поможет.


3-77282
Chainik
2002-05-30 16:26
2002.06.24
Выборка по первым 2-м цифрам из поля таблицы


14-77554
sergey32
2002-05-20 10:27
2002.06.24
Можно ли установить Windows NT на FAT32?


1-77462
Мефодий
2002-06-10 19:48
2002.06.24
Ошибка в команде NewPage при использовании QuickReport





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский