[Lazarus-es] Como leer y escribir archivos de textos

[Fjbr.]

Y si no es un .INI (aunque a simple vista lo parece)... siempre puedes
cargarlo en un TStringList y recorrerlo linea a línea.

var
  sl: TStringList;
  i: Integer;
begin
  sl:= TStringList.Create;
  try
    // Cargamos todo el fichero
    sl.LoadFromFile('fichero_de_datos.ini');
    // Procesamos linea a linea
    for i:= 0 to sl.count -1 do
    begin
      Hacer_Algo_Con_Cada_Linea( sl[i] );
    end;
  finally
    sl.free;
  end;
end;

El 17 de noviembre de 2009 23:22, JoshyFun <joshyfun en gmail.com> escribió:

> Hello Ismael,
>
> Tuesday, November 17, 2009, 10:31:52 PM, you wrote:
>
> ILDG> Estoy tratando de leer y escribir un archivo de texto con
> ILDG> TFileStream pero no he podido encontrar la forma:
> ILDG> La estructura sería más o menos así:
>
> ILDG> [Datos]
> ILDG> conexion=1
> ILDG> seridor=192.168.0.1
> ILDG> puerto=3050
> ILDG> bd=D:\Datos\
> [...]
> ILDG> GRACIAS por la ayuda que me puedan brindar.
>
> El archivo tiene toda la pinta de tener un formato .INI file, y para
> ello te sería más cómodo usar el TIniFile en vez de TFileStream. Añade
> TIniFile al "uses" y ya dispones de TIniFile.
>
> --
> Best regards,
>  JoshyFun
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>



-- 


-------
Fjbr25.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20091118/b1930518/attachment-0002.html>