[Lazarus-es] TFileStream.Read() no lee desde el fichero

[José Mejuto]

El 12/01/2013 2:54, MSc. Ing. Pedro Pablo Oviedo Vera (ENPA) escribió:

> pfile:=TFileStream.Create('/home/user/consola/prueba.txt',fmOpenRead);
>       pfile.ReadBuffer(pchar(msj)^,Length(msj));
>       pfile.free;
> todo mal....no lanza ningún error pero no se lee nada,....¿por
> qué?
>

Hola,

Como no vemos donde inicializas "msj" no podemos saber cuanto vale o 
puede valer "Length(msj)".

Prueba con esto, espero que veas la diferencia.

var
   msj2: string;
   pfile: TFileStream;
begin
   pfile:=TFileStream.Create('/home/user/consola/prueba.txt',fmOpenRead);
   SetLength(msj2,pfile.Size);
   pfile.ReadBuffer(pchar(msj2)^,Length(msj2));
   pfile.free;
end;


--