Cómo acceder al contenido de un archivo de texto

[MAXIUM]

Tengo una duda, quiero leer un archivo de texto plano muy grande (190MB) se supone que debiera usar TStringStream, pero creo que no soporta la lectura línea alínea que es lo que necesito, por lo que tendria que volver al clasico ReadLn.

Alguna forma optima de hacer esto o como crear un buffer para que la PC no colapce en el ¿proceso?

[[sitrico]]

La forma Simple y tradicional:

Código Delphi [-]
procedure TForm1.LeerTxt(FileName: String);
Var
f : TextFile;
s : String;
begin
memo1.lines.clear; // el memo para poder hacer algo con los strings
AssignFile(f,fileName);
Reset(f);
While not eof(f) do
   Begin
   ReadLn(f,s);
   Memo1.Lines.Add(s);
   Application.ProcessMessages; // para que no se cuelgue la aplicación
   End;
end;

Falta el manejo de errores per es la únicamanera que conozco para leer un archivo línea a línea. Tengo entendido que los stream leen todo el archivo como un bloque.

[MAXIUM]

El archivo contiene un total de 2.034.190 lineas, pero solo me lee las primeras 79.558

[[sitrico]]

¿ como lees el archivo ? los Stream usan buffers de 64K (creo)

[MAXIUM]

Los leo tal cual tu código, pero si en vez de eso uso Loadfrom en em memo, carga bien, pero yo necesito leer linea a linea.

[[sitrico]]

Prueba leer por bloques:

Código Delphi [-]
procedure TForm1.Leer(Fn: TFileName);
Const
eol = #10;
var
  F: file;
  NumRead,i, BufPos:LongWord;
  Buf,lin: array[1..1024] of Char;  
// Si ajustas el 1024 a la long máxima de la línea de texto mejora mucho el rendimiento ;-)
  s : String;
begin
    memo1.Lines.Clear;
    AssignFile(F, FN);
    Reset(F, 1);
    BufPos := 0;
    repeat
        BlockRead(F, Buf, SizeOf(Buf), NumRead);
        FillChar(Lin,SizeOf(lin),#0);
        i := 0;
        While Buf[i] <> eol do
           Begin
           lin[i] := Buf[i];
           Inc(i);
           End;
        s := String(Lin);
        Inc(BufPos,i);
        memo1.Lines.Add(s);
        Seek(f,BufPos);
    until (NumRead = 0);
end;

Aunque no tengo archivos grandes para probar...

[[cHackAll]]

Hola