Pasar contenido fichero a un campo memo

[Jose Manuel]

Trabajando con Delphi6 y QuickReport 3, podrías decirme como hago para pasar el contenido de un fichero del correo electrónico guardado en un directorio con la extensión *.msg a un campo memo.

La ruta del fichero a leer, está guardado en un campo llamado docword1.text por ejemplo: docword1.text = d:\copia_correos\prueba_correo.msg

Lo que quiero es ver el contenido del fichero prueba_corre.msg y no el nombre del fichero, que es lo que me sale con está instrucción.

Gracias a todos de antemano, y un saludo

Jose Manuel García

   
Si utilizo esten ejemplo, leo el nombre del fichero, y yo quiero leer el contenido del fichero :

procedure TQR_Carpeta.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin

  QRExprMemo_email.lines.add(docword1.text);

end;

[pijo]

Has probado con esta otra:

QRExprMemo_email.lines.loadfromfile(docword1.text);

ánimos

[Jose Manuel]

he hecho la prueba y no me funciona ya que traduce el fichero por signos ilegibles, tal vez por tratarse de un fichero con extensión *.msg

Lo he arreglado, pasando el fichero a una variable, y desde allí al campo memo, es casi lo mismo que tu me dices, pero con un paso más.

 fichero_a_leer:='';
 fichero_a_leer:= loadfile(docword1.text);
 QRExprMemo_email.lines.add(fichero_a_leer);

Bueno, seguire intentando mejorar el proceso.

Un saludo, y gracias por responder.
Jose Manuel