Ver Mensaje Individual
  #3  
Antiguo 14-06-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
¿Por qué no quieres leer la línea completa? ¿hablamos de varios Gigabytes?

La forma más comoda, es cargar todo el archivo en un TStringList llamado "Archivo", despues accedes a una línea de texto y la descompones en otro StringList llamado Linea:
Código Delphi [-]
var Archivo, Linea:TStringList;
      i:integer;
begin

Archivo := TStringList.Create;
Linea := TStringList.Create;

Archivo.LoadFromFile ('c:\....');
// Accedo  a la linea 4 (empieza en cero) y hago un traspaso de la linea:

Linea.Commatext := Archivo[3]; // separo cada valor de los campos
for i:= 0 to Linea.Count-1 do
 ShowMessage(linea[i]);

// si solo quieres mostrar el 2º campo, pues 
if Linea.Count > 0 then
  ShowMessage(Linea[1]);

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita