[manolop]

Hola a todos, tengo un archivo de texto que es muy muy grande (del orden de 800 MB) y necesito leer bloques de 700 bytes. Estoy probando este codigo, pero no me sirve pq no puedo limitar la informacion que leo:

var
fich:TextFile;
cad:ansistring;
begin
// database1.Commit;
try
try
AssignFile(fich,'fichero.txt');
reset(fich);
while not eof(fich) do
begin
readln(fich,cad);
memo1.Text:=memo1.Text+cad; //esto es solo para ver el resultado
end;
finally
closeFile(fich);
end;
except
on E:Exception do
showmessage('Error de acceso al fichero con msg: '+E.Message);
end;

Por favor, si alguien sabe como deberia leer el archivo, les estaria muy agradecido. Muchas gracias.