<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16850" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Gracias, toda ayuda es bien venida ya que voy ganando en
conocimientos.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Esta es otra vía por donde mirar.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Saludos</FONT></DIV>
<DIV>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR>----- Mensaje original -----
</DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>De:</B> <A
title=fjbr25@gmail.com href="mailto:fjbr25@gmail.com">Fjbr.</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Para:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Enviado:</B> miércoles, 18 de noviembre de
2009 12:37</DIV>
<DIV style="FONT: 10pt arial"><B>Asunto:</B> Re: [Lazarus-es] Como leer y
escribir archivos de textos</DIV>
<DIV><BR></DIV>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="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">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>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>