View Single Post
  #1  
Old 26/06/2014
eennzzoo's Avatar
eennzzoo eennzzoo is offline
Miembro
NULL
 
Join Date: Nov 2013
Location: Argentina
Posts: 59
Rep Power: 13
eennzzoo Va por buen camino
Problemas al insertar datos en archivo

Hola, tengo un problema al insertar datos en el archivo m.txt.
El if lo hace bien, el else no. Se tilda el form y me borra todo lo del m.txt

el m.txt es este
26/06/2014
25

Code:
String Mont = TS9->Strings[1];
int Tot;
Tot = Mo + Mont.ToInt();
for(int i=0; i < TS9->Count; i+=2) {
	if (TS9->Strings[i]==("00/00/0000")) {
		TS9->Delete(i+1);
		TS9->Delete(i);
	        TS9->Insert(i, (Now().CurrentDate()));
		TS9->Insert(i+1, Tot);
		TS9->SaveToFile("H:\\m.txt");
	}else {
		TS9->Insert(i+2, (Now().CurrentDate()));
		TS9->Insert(i+3, Tot);
		TS9->SaveToFile("H:\\m.txt");
	}
}
Quizas el problema sea que como esta en un for no va a terminar nunca ya que estoy insertando datos y termina hasta TS->COUNT (y se va incrementando) osea nunca porque va a estar insertando. Creo yo nose.Gracias.
__________________
https://www.facebook.com/riverplateoficial

Last edited by ecfisa : 26/06/2014 at 22:43.
Reply With Quote