Otra forma más:
Código Delphi [-]
var archivo : TstringList;
i:integer;
begin
archivo := TStringlist.Create;
archivo.LoadFromFile('c:\.lñ.....');
for i:=0 to archivo.count-1 do
showmessage(archivo[i]);
freeandnil(archivo);
end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|