AYUDA para leer el contenido de un TexFile

[jorch_yr]

Hola!!!

Cuando leer un fichero de texto y lo coloco en un String al leer el fichero solo me lee la primera line quisiera saver como puedo hacer para que guarde todo el fichero de texto en una variable.

el codigo que uso para leer es :

var
Ar : FileText;
Texto : String;
begin
AssignFile (Ar,'temp.pe');
Reset (Ar);
Read(Ar,Texto);
CloseFile (Ar);
end;


el problema es que al hacer el Read(Ar,Texto); solo me guarda la primera line y yo nesesito guardar todo el contenido del archivo temp.pe que esta compuesto por 15 lineas.


Gracias

[marcoszorrilla]

¿Por qué no usas un memo?

El código quedaría mucho más simple:


memo1.Lines.LoadFromFile('D:\Pruebas\MiArchivo.txt');
Texto:=Memo1.Text;
ShowMessage(Texto);


Un Saludo.

[Descendents]

has provado de usar un TstringList?

Aunque creo que la mejor opcion, para tu comodidad ya te la dio marcos

Saludos

[jorch_yr]

Gracias ya lo intente con los dos pero no funciono al final lo solucione con un Append.