Ver Mensaje Individual
  #1  
Antiguo 05-06-2007
Avatar de jorgegetafe
jorgegetafe jorgegetafe is offline
Miembro
 
Registrado: dic 2006
Posts: 238
Reputación: 20
jorgegetafe Va por buen camino
De un txt a un memo

Hola de nuevo, soy yo, el pesado jajaja.

Quiero pasar el contenido de un archivo txt a un memo. Y no se como hacerlo, he probado con esto, pero me poner errores de sintaxis tontos:


Código Delphi [-]
PROCEDURE cargarArchivo (rutaArchivo:STRING; VAR pantalla:tmemo); // Carga el contenido de un txt en un memo llamado pantalla.
TYPE
  fichero = text;
VAR
  f: fichero;
  c: char;
BEGIN
  pantalla.Text:='';
  assign (f, rutaArchivo);
  reset (f);
  WHILE NOT eof(f) DO
    BEGIN
      read (f, char); //ERROR: "(" Expected but ")" found. Este error no tiene   sentido y me descoloca por completo.
      pantalla.text:= (pantalla.lines + char); // ERROR: Left side can not be     assignet to right side. ¿Como se hace entonces?
END;
    close (f);
END;
Responder Con Cita