Eliminar marcas de formato rtf

[esocrates]

Un saludo a todos:
Necesito saber cómo se hace para que al cargar un archivo rtf en un RichEdit no se visualicen los caracteres propios del formato rtf al comienzo de la página.
Por ej.

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\lang3082\f0\fs16 Listado de Enrique\f1
\par

Desde ya muchas gracias

[Casimiro Notevi]

Existen utilidades que lo hacen, normalmente se llamaran "rtf2txt" o también "rtftotxt", por ejemplo,

Aquí uno free: http://www.brothersoft.com/rtf2txt-61949.html

Fíjate, un programilla basic de msdos que dice hacer eso mismo que quieres, puede que te sirva de algo:

RTF2TXT.BAT - RTF to Text file converter

  A program born out of a simple need, to read a Rich Text Format document. This batch creates and runs a QBasic program that converts the RTF file to plain text. Changes "\par" to newline, "\tab" to tab, all other words beginning with "\" are ignored. Newlines in the source file are ignored. To get rid of the header junk, "{" turns off the output stream until a "}" comes along. 
 Usage: RTF2TXT infile.rtf outfile.txt 
 
 
:: (updated) Cheezy RTF-to-Text converter batch 
:: by Terry Newton. Needs QBASIC "on the path"
@echo off
if .%2==. echo Usage: Usage: RTF2TXT infile.rtf outfile.txt
if .%2==. goto end
if not exist %1 echo File not found
if not exist %1 goto end
echo Converting RTF to text...
echo> rtf2-.bas :on error goto x
echo>>rtf2-.bas open "%1" for input as #1:open "rtf2-" for output as #2
echo>>rtf2-.bas f:a$=input$(1,1):c$=""
echo>>rtf2-.bas if a$=chr$(13) or a$=chr$(10) then goto f
echo>>rtf2-.bas if a$="{" then skip=1:goto f
echo>>rtf2-.bas if a$="}" then skip=0:goto f
echo>>rtf2-.bas if skip then goto f
echo>>rtf2-.bas if (a$="\")=0 then goto o
echo>>rtf2-.bas g:a$=input$(1,1):if (a$=" ")=0 then c$=c$+a$:goto g
echo>>rtf2-.bas if c$="par" then print #2,""
echo>>rtf2-.bas if c$="tab" then print #2,chr$(9);
echo>>rtf2-.bas goto f
echo>>rtf2-.bas o:print #2,a$;:goto f
echo>>rtf2-.bas x:close #1:close #2:resume ww
echo>>rtf2-.bas ww:on error goto done
echo>>rtf2-.bas open "rtf2-" for input as #1:open "%2" for output as #2
echo>>rtf2-.bas lm:line input #1, a$:if a$="" then print #2,"":goto lm
echo>>rtf2-.bas l0:t=0:p=instr(a$,chr$(9)):if sgn(77-p)-(p=0)=1 then t=8
echo>>rtf2-.bas p=77-t:if sgn(p-len(a$)+1)=1 then print #2,a$:goto lm
echo>>rtf2-.bas l1:if mid$(a$,p,1)=" " then goto c
echo>>rtf2-.bas p=p-1:if p=0 then print #2,a$:goto lm else goto l1
echo>>rtf2-.bas c:print #2,left$(a$,p-1):a$=right$(a$,len(a$)-p):goto l0
echo>>rtf2-.bas done:close #1:close #2:system
qbasic /run rtf2-.bas
del rtf2-.bas
del rtf2-
:end

Seguro que encuentras algún componente que lo hace.

[Neftali [Germán.Estévez]]

No me queda claro si lo que quieres es "cargarlo" o "convertirlo".
Para convertirlo y obtener el texto sin los caracteres del formato, pues tal y como te ha dicho Casimiro.

Para cargarlo únicamete (en ejecución) debes usar:

Código Delphi [-]
  RichEdit1.Lines.LoadFromFile('r:\test.rtf');

[esocrates]

Empezado por Neftali

No me queda claro si lo que quieres es "cargarlo" o "convertirlo".
Para convertirlo y obtener el texto sin los caracteres del formato, pues tal y como te ha dicho Casimiro.

Para cargarlo únicamete (en ejecución) debes usar:

Código Delphi [-]
  RichEdit1.Lines.LoadFromFile('r:\test.rtf');

Gracias por la respuesta Neftali.
Efectivamente lo que quiero es simplemente cargarlo.
Intento hacer lo que me indicas y me da un mensaje de error:

"El sistema no puede halla la ruta especificada"

Aclaro que el archivo está en la carpeta del programa en cuestión.
¿Alguna sugerencia?
Muchas gracias
Hasta pronto

[Neftali [Germán.Estévez]]

Empezado por esocrates

"El sistema no puede halla la ruta especificada"
Aclaro que el archivo está en la carpeta del programa en cuestión.

Tiene pinta de que el path es incorrecto.
¿Qué path estás colocando?

[esocrates]

Empezado por Neftali

Tiene pinta de que el path es incorrecto.
¿Qué path estás colocando?

El archivo listado.rtf está en la carpeta del programa.
Lo llamo mediante:

RichEdit1.Lines.LoadFromFile('r:\listado.rtf');

Me da este mensaje:
"Cannot open file 'listado.rtf'. El sistema no puede hallar la ruta especificada"

Un saludo