como agregar datos a un txt ?

[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

[gaston260]

Muy muchas gracias amigo ! estube esperando esta respuesta ! , me siento un poco cansado , ya es tarde para mi ! voy a intentar probarlo y si puedo respondo hoy , si no sera mañana !

Te agradezco mucho por este aporte y por el del hilo anterior !

Gracias y un abrazo grande !!

[gaston260]

una ultima pregunta como puedo agregar todo en una columna y no un dato a continuacion de otro ?

[gaston260]

amigo el codigo no me funciona como yo quiero ! si me puedes dar una mano te lo agradezco mucho !!

saludos !

[[escafandra]]

Introduce un retorno de linea (caracter 10) y un retorno de carro (caracter 13) despues de cada dato.

Saludos.

[*Caro*]

Empezado por gaston260

una ultima pregunta como puedo agregar todo en una columna y no un dato a continuacion de otro ?

Empezado por gaston260

amigo el codigo no me funciona como yo quiero ! si me puedes dar una mano te lo agradezco mucho !!

No te estoy entendiendo muy bien, dinos como debería funcionarte y como esta funcionando ahora, sería bueno que nos dieras ejemplos con datos. Porque de la forma que esta debería mostarte en una sola columna. Según el ejemplo del otro hilo:

Digamos que se van obteniendo estos valores :

12 25 55 139 0 0 0 1 5 31 21 0 0 0 40 2 0 0 0 6 2 0 0 0 8 56 31 0 0 0

con el código que tienes en tu txt debería mostrarte de esta forma, si la condición es, cuando se repinten 3 ceros seguidos:

12 25 55 139 0 0 0 
1 5 31 21 0 0 0 
40 2 0 0 0 
6 2 0 0 0 
8 56 31 0 0 0

Dinos como quieres verlo en el txt.

Solo comentarte que no soy amigo .

Saluditos