<!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>