Ver Mensaje Individual
  #4  
Antiguo 12-02-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Cita:
Empezado por gaston260 Ver Mensaje
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita