como agregar datos a un txt ?

[gaston260]

Hola amigos tengo la pregunta de la existencia jajaja , mi pregunta es ; como agregar la informacion que va apareciendo en un edit y volcarla en un txt ? , me sirve este codigo ? , no puedo encontrar la forma !

Código Delphi [-]
begin               
AssignFile (Datos, 'C:.\\archivos\MiAgenda1.txt');               
Rewrite (Datos);               CloseFile (Datos);                
AssignFile (Datos, 'C:.\\archivos\MiAgenda1.txt');               
Append (Datos);               
Writeln (Datos, edit.Text);              
 CloseFile (Datos);             
end;

ha tambien encontre que se puede crear un txt haci :

Código Delphi [-]
             
 begin                   
agenda1 := TStringList.Create;                   
Agenda1.Add(edit.Text);                   
agenda1.saveToFile('C:.\\archivos\MiAgenda1.txt');                   
agenda1.free;              
end;

pero ni idea !

Gracias de antemano !!

[gaston260]

bueno la tecnologia no es mi fuerte jajaja perdón !!

[*Caro*]

Hola Gaston, tu código quedaría así

Código Delphi [-]
begin
 AssignFile (Datos, 'C:.\\archivos\MiAgenda1.txt');
 Rewrite (Datos);
 CloseFile (Datos);
 AssignFile (Datos, 'C:.\\archivos\MiAgenda1.txt');
 Append (Datos);
 Writeln (Datos, edit.Text);
 CloseFile (Datos);
 end;

Código Delphi [-]
begin
 agenda1 := TStringList.Create;
 Agenda1.Add(edit.Text);
 agenda1.SaveToFile('C:\archivos\MiAgenda1.txt');
 agenda1.free;
end;

Yo te aconsejo que utilices la segunda forma, el TStringList podrías crearlo en el OnCreate de tu form así cada vez que añadas haces el Add al StringList, puede estar en button solo esa línea y cuando quieras grabar haces el SaveToFile.

Nota.- Para que el codigo te salga bien, es solo añadir entre tu codigo las etiquetas [ delphi] [ /delphi] sin los espacios.

Saluditos

[gaston260]

gracias !! lo puedo crear correctamente al txt pero lo que pasa es que tengo un edit que cambia de valor constantemente y necesito que todos esos datos queden plasmados en un txt !

me puedes ayudar ?
Gracias !

[*Caro*]

Empezado por gaston260

gracias !! lo puedo crear correctamente al txt pero lo que pasa es que tengo un edit que cambia de valor constantemente y necesito que todos esos datos queden plasmados en un txt !

Hola de nuevo, que eventos estas utilizando, como sabes que el texto que tienes en el edit ya se debe grabar en el archivo, nose si te estoy entendiendo bien. Digamos el edit tiene un valor, haces algo y ese valor se guarda en el txt, despues introduces otro valor y ese otro valor se guarda como otra línea en el txt, estas utilizando algún boton para guardar el contenido en el txt?. ¿Una vez grabado en el txt, tienes que poder leer lo que tienes y sobre eso añadir nuevas líneas que introduzcas en el txt?.

Saluditos

[gaston260]

hola CARO , no uso ningun boton para guardar los datos , los datos se generan automaticamente ; el caso es asi ! dentro de un for tengo un edit que toma un valor arbitrario , y solo se tendrian que guardar los datos cuando el edit toma un valor repetido (x) veces , el tema es que el edit toma tantos valores que cuando quiere guardar en un txt , solo guarda un valor !

me pude explicar ? , si no es haci dimelo haci completo la idea !

[*Caro*]

Empezado por gaston260

hola CARO , no uso ningun boton para guardar los datos , los datos se generan automaticamente ; el caso es asi ! dentro de un for tengo un edit que toma un valor arbitrario , y solo se tendrian que guardar los datos cuando el edit toma un valor repetido (x) veces , el tema es que el edit toma tantos valores que cuando quiere guardar en un txt , solo guarda un valor !

Creo que te entiendo, según el otro hilo que abriste estas utilizando este codigo para verificar si se ha repetido el valor 0, partiendo de eso, debes utilizar una variable donde ir almacenando lo que tienes, nose porque utilizas un Edit, podrías también utilizar otra variable.

Código Delphi [-]
var
 Valor : String;
begin
 agenda1 := TStringList.Create;
 Try 
  Valor := ''; 
  for .................
   begin
     .......................... 
     Valor := Valor + edit1.Text;
     if edit1.Text = '0' then
      inc(contador)
     else
      contador := 0;
     
     //Cuando se cumpla esta condición es cuando adicionas al StringList   
     if contador = 30 then
      begin
       beep;
       Agenda1.Add(Valor); //Adicionamos lo que s etiene hasta ahora
       Valor := ''; //limpiamos para los siguientes valores
      end;
   end; //for
 
   //despues de que termina el for grabas
   agenda1.SaveToFile('C:\archivos\MiAgenda1.txt');
  Finally
   FreeAndNil(Agenda1);
  end;

Saluditos