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

[Oleg060783]

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

{\rtf1\adeflang1025\ansi\ansicpg125 1\uc1\adeff1\deff0\stshfdbch0\stshf loch0\stshfhich0\stshfbi0\deflang10 49\deflangfe1049\themelang1049\them elangfe0\themelangcs0{\fonttbl{\f0\ fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fbidi \fswiss\fcharset204\fprq2{\*\panose 020b0604020202020204}Arial;}
{\f2\fbidi \fmodern\fcharset204\fprq1{\*\panos e 02070309020205020404}Courier New;}{\f3\fbidi \froman\fcharset2\fprq2{\*\panose 05050102010706020507}Symbol;}{\f4\f bidi \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;

Спасибо заранее.

[Serge_Bliznykov]

как то давно игрался. сейчас нет Delphi под рукой, чтобы проверить.

но попробуйте, что даст такой код:

begin
if OpenDialog1.Execute then //Вызываем диалог открытия
begin
  RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); // загрузка
  RichEdit1.PlainText:=true; 
  RichEdit1.Lines.SaveToFile(OpenDialog1.FileName+'.text');  
end;
end;

или так:

begin
if OpenDialog1.Execute then //Вызываем диалог открытия
begin
  RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); // загрузка
  RichEdit1.PlainText:=false; 
  Memo1.Lines.Text := RichEdit1.Text;  
end;
end;

p.s. я ничего не обещаю, возможно, что память меня подводит.
я помню, что там какие-то нюансы с PlainText были. а вот какие - уже не помню...

[Oleg060783]

Спасибо за ответ.
Не работают оба варианта. Судя по форумам всё должно быть ок.
Где косяк....не пойму....

[Аватар]

  RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  Stream:=TMemoryStream.Create;
  RichEdit1.PlainText:=True;
  RichEdit1.Lines.SaveToStream(Stream);
  Stream.Position:=0;
  RichEdit1.Lines.LoadFromStream(Stream);
  Stream.Free;

[Serge_Bliznykov]

Аватар, красиво! И это похоже на правду!
Проверили, всё работает как надо?

[Oleg060783]

Вот мой код:

var
  Stream: TMemoryStream;
begin
	  if OpenDialog1.Execute then 
    begin
  RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  Stream:=TMemoryStream.Create;
  RichEdit1.PlainText:=True;
  RichEdit1.Lines.SaveToStream(Stream);
  Stream.Position:=0;
  RichEdit1.Lines.LoadFromStream(Stream);
  Stream.Free;
    end;
end;

Содержание RichEdit:

{\rtf1\adeflang1025\ansi\ansicpg125 1\uc1\adeff1\deff0\stshfdbch0\stshf loch0\stsh fhich0\stshfbi0\deflang1049\deflang fe1049\themelang1049\themelangfe0\t hemelangcs 0{\fonttbl{\f0\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fbidi \fswiss\fcharset204\fprq2{\*\panose 020b0604020202020204}Arial;}
{\f2\fbidi \fmodern\fcharset204\fprq1{\*\panos e 02070309020205020404}Courier New;}{\f3\fbidi \froman\fcharset2\fprq2{\*\panose 05050102010706020507}Symbol;}{\f4\f bidi \fswiss\fcharset0\fprq2{\*\panose 020b0504020202020204}Helvetica;}

Пробовал другой rtf-файл. Такая же байда.
Delphi5, компонент стандартный TRichEdit

Где же косяк...

[Stilet]

var
  f: TFileStream;
begin
  if OpenDialog1.Execute then     begin
   f:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
   RichEdit1.PlainText:=True;
   RichEdit1.Lines.LoadFromStream(f);
   f.Free;
  end;
end;

Не?

Delphi5

Поновее ниче поставить не хоч?

[Oleg060783]

Вы не поверите в чём было дело...
ScrollBar надо было вертикальный включить...
Глючный Delphi! 2 дня потерял.

Сейчас эксперементирую....Скорость загрузки очень маленькая.

Спасибо всем за участие!

PS: Поновее бы с удовольствием. Лицензия на работе только для этого есть.

[min@y™]

PS: Поновее бы с удовольствием. Лицензия на работе только для этого есть.

это гдеж ты работаешь-то?

[Oleg060783]

На Сбербанк России)

Вы знаете, заработал след код:

procedure TfMain.DefoultFormat(Sender: TObject);
var
  Stream: TMemoryStream;
begin
            if OpenDialog1.Execute then
    begin
    RichEdit1.MaxLength := $7FFFFFF0;
    RichEdit1.PlainText:=false;
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
    RichEdit1.PlainText:=True;
    end;
end;

Причём начал работать и предыдущий. И случилось это, если я не ошибся, после того как я включил ScrollBar.
Сначала включил оба скрулбара - текст был мелким шрифтом и смазан
Включил вертикальный скрулбар - небольшой rtf-документ начал отображаться как следует. Большой (4,5 мб) отображался с тегами, но повторный запуск процедуры отрабатывал быстро и выдавал уже без тегов
Потом отключил скрулбары - маленький документ отображается с первого раза корректно. Большой - со второго
Добавил строку RichEdit1.MaxLength := $7FFFFFF0; - большой документ отображается корректно с первого раза.

ЧТО за мистика???