Tema: Leer fichero
Ver Mensaje Individual
  #2  
Antiguo 21-05-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Código Delphi [-]
var Lista, Linea:TStringList;
     
begin
Lista := TStringList.Create;
Linea := TStringList.Create;

Lista.LoadFromFile('c:\ldjsflakjdlf');
Linea.DelimitedChar := ' '; // el espacio
for i:=0 to Lista.Count-1 do
begin
  linea.DelimitedText := Lista[i];
  ShowMessage('La cadena a decodificar: '+ Lista[i]);
  for j:= 0 to Linea.Count-1 do
  begin
     ShowMessage('Decodificada la Linea en trozos: '+linea[j]);
end;
freeandnil(lista); // destruimos la lista de memoria.
freeandnil(linea);

Hasta donde yo sé , no existe nada como Scanf.

Ese código carga en Lista todo el archivo, y ahora desglosa cada línea, el bucle interior (el de variable j) mostrará:
Points
4
4
5

Para la primera línea.

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

Última edición por Lepe fecha: 21-05-2006 a las 10:49:04.
Responder Con Cita