Club Builder

[csv]

Hola a Todos

Necesito me ayuden con un problema que tengo en mi proyecto


Tengo unos archivo de texto con el sgte formato:

formato archivo

1°paso (indica cuantos cambios son en total en el motor)
2°valor (indica el valor escrito)
3°sentido(indica avance a retroceso)
4°valor
5°sentido
etc..

ejemplo contenido del arch de texto

4
102
2
108
2
105
2
99
2

Se debe apretar un boton que tiene la instrucion de recorrer el archivo antes mencionado,el problema es que cuando entra en funcion que debe mover la animacion de flash hacia adelante o hacia atras no se mueve nada.

Ya no se que hacer pues es fundamental que se muevan las animaciones.



//----------------- Boton que debe ser apretado
void __fastcall TForm1::Button2Click(TObject *Sender)
{


Mover(Memo1 ,1,this);
Mover(Memo2 ,2,this);
Mover(Memo3 ,3,this);

}

//-----------------

void __fastcall TForm1::Mover(TMemo *M ,int motor,TObject *Sender)
{

int pasos;

pasos=StrToInt(M->Lines->Strings[0]);


if(pasos>0) // Entra si Existe Movimientos del Motor
{

for(int x=1;x<pasos*2;x++)
{


/* mostar valor StrToInt(M->Lines->Strings[x]) ); */

x=x+1;

if(motor==1)
{
MF(F1,StrToInt(M->Lines->Strings[x]));
}
else

if(motor==2)
{
MF(F2,StrToInt(M->Lines->Strings[x]));
}
else

if(motor==3)
{
MF(F3,StrToInt(M->Lines->Strings[x]));
}

}// fin del if(pasos>0)


}// fin del for


}

//------------------

void __fastcall TForm1::MF(TShockwaveFlash *F,int sentido)
{

if(sentido==1)
{
F->Forward();
}
else
F->Back();


}


Les agradecezco la Ayuda porque no me da mas la cabeza con esto
_________________
CsV