Cómo acceder al contenido de un archivo de texto

[[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

[MAXIUM]

Strico, funciono de maravillas, solo te falto esto "CloseFile(F, FN);" . Destacar que el consumo de RAM es proporcional al archivo a cargar y x2 mientras realiza el proceso.

[cHackAll], tambien gracias, aunque no es lo que necesitaba nunca esta demás tener esos códigos a mano.