Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   De un txt a un memo (https://www.clubdelphi.com/foros/showthread.php?t=44396)

jorgegetafe 05-06-2007 18:16:07

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;

dec 05-06-2007 18:18:34

Hola,

Código Delphi [-]
Memo1.Lines.LoadFromFile('C:\archivo.txt');

:D

maeyanes 05-06-2007 18:19:37

La forma más rápida de hacer esto es:

Código Delphi [-]
pantalla.Lines.LoadFromFile(rutaArchivo)


Saludos...

jorgegetafe 05-06-2007 18:22:45

Anda!!! yo no sabia que eso existiese. Me ahorra mucho trabajo, gracias a ambos.


La franja horaria es GMT +2. Ahora son las 08:39:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi