Y si no es un .INI (aunque a simple vista lo parece)... siempre puedes cargarlo en un TStringList y recorrerlo linea a línea.<br><br><span style="font-family: courier new,monospace;">var</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">  sl: TStringList;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  i: Integer;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">begin</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  sl:= TStringList.Create;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">  try</span><br><span style="font-family: courier new,monospace;">    // Cargamos todo el fichero</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">    sl.LoadFromFile('fichero_de_datos.ini');</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">    // Procesamos linea a linea</span><br><span style="font-family: courier new,monospace;">    for i:= 0 to sl.count -1 do</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">    begin</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">      Hacer_Algo_Con_Cada_Linea( sl[i] );</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">    end;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  finally</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">    sl.free;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  end;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">end;</span><br><br><div class="gmail_quote">El 17 de noviembre de 2009 23:22, JoshyFun <span dir="ltr"><<a href="mailto:joshyfun@gmail.com">joshyfun@gmail.com</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Hello Ismael,<br>
<br>
Tuesday, November 17, 2009, 10:31:52 PM, you wrote:<br>
<br>
ILDG> Estoy tratando de leer y escribir un archivo de texto con<br>
ILDG> TFileStream pero no he podido encontrar la forma:<br>
ILDG> La estructura sería más o menos así:<br>
<br>
ILDG> [Datos]<br>
ILDG> conexion=1<br>
ILDG> seridor=192.168.0.1<br>
ILDG> puerto=3050<br>
ILDG> bd=D:\Datos\<br>
[...]<br>
ILDG> GRACIAS por la ayuda que me puedan brindar.<br>
<br>
El archivo tiene toda la pinta de tener un formato .INI file, y para<br>
ello te sería más cómodo usar el TIniFile en vez de TFileStream. Añade<br>
TIniFile al "uses" y ya dispones de TIniFile.<br>
<br>
--<br>
Best regards,<br>
 JoshyFun<br>
<br>
<br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</blockquote></div><br><br clear="all"><br>-- <br><br><br>-------<br>Fjbr25.<br>