jorgegetafe
05-06-2007, 18:16:07
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:
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;
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:
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;