| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RichEdit: Загрузка из rtf-файла только текста

Страницы:   < 1 2 >

shadow ©   (2015-06-24 14:20:00) 

Добрый день.
Никак не могу разобраться(
Хочу из rtf-файла взять толь ко данные, без тегов.
Текст берётся вместе с тегами. Причём отображается не в красивом, отформатированном виде, а в виде :

{\rtf1\adeflang1025\ansi\ansicpg1251\uc1\adeff1\deff0\stshfdbch0\stshfloch0\s tshfhich0\stshfbi0\deflang1049\deflangfe1049\themelang1049\themelangfe0\themelan gcs0{\fonttbl{\f0\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fbidi \fswiss\fcharset204\fprq2{\*\panose 020b0604020202020204}Arial;}
{\f2\fbidi \fmodern\fcharset204\fprq1{\*\panose 02070309020205020404}Courier New;}{\f3\fbidi \froman\fcharset2\fprq2{\*\panose 05050102010706020507}Symbol;}{\f4\fbidi \fswiss\fcharset0\fprq2{\*\panose 020b0504020202020204}Helvetica;}
{\f5\fbidi \fmodern\fcharset0\fprq1{\*\panose 02070409020205020404}Courier;}{\f6\fbidi \froman\fcharset0\fprq2{\*\panose 02020603040505020304}Tms Rmn;}{\f7\fbidi \fswiss\fcharset0\fprq2{\*\panose 020b0604020202030204}Helv;}

Делаю вот так:

procedure TfMain.DefoultFormat(Sender: TObject);
begin
  if OpenDialog1.Execute then  //Вызываем диалог открытия
   begin
     RichEdit1.WordWrap:=False;
     RichEdit1.PlainText:=true; // текст без тегов
     RichEdit1.Enabled:=False;
     RichEdit1.Lines.BeginUpdate;
     RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); // загрузка
     RichEdit1.Lines.EndUpdate;
     RichEdit1.Enabled:=True;

     RichEdit1.Text; // всё-равно текст с тегами
   end;
end;

---

shadow   (2015-06-24 15:01:00) [21]

Так пробовал:
RichEdit1.PlainText:=False;
 загрузить
RichEdit1.PlainText:=true;
Результат  такой же.

---

shadow   (2015-06-24 15:00:00) [22]

"сохранить" - куда? в файл?

---

shadow   (2015-06-24 14:59:00) [23]

MBo,  простите, я не понял.
Можно накидать псевдокод?

---

MBo   (2015-06-24 14:48:00) [24]

выпало:
загрузить ещё раз (можно stream, необязательно использовать файл)

---

MBo   (2015-06-24 14:44:00) [25]

  RichEdit1.PlainText:=False;
  загрузить
  RichEdit1.PlainText:=true;
  сохранить

---

Страницы:   < 1 2 >

Наверх