omar_rosado
30 de Enero del 2004

Ayuda:
Hola tengo un problema al momento de ocultar una forma (Visible = false): Tengo el siguiente código pero no me funciona.
if(Edit1->Text.Length()<4 )
{ ShowMessage ("Faltan Letras Por Escribir");
ban = 1;
}

if(Edit37->Text.IsEmpty()||Edit38->Text.IsEmpty()||Edit39->Text.IsEmpty()||Edit40->Text.IsEmpty())
{ ShowMessage("No Deben Haber Casillas Vacías en Expediente");
ban = 1;
}
else
{
if (StrToInt(Edit37->Text) < 1 || StrToInt(Edit37->Text) > 31 )
{ ShowMessage("Escriba un Número de Día Válido");
ban = 1;
}
if (StrToInt(Edit38->Text) < 1 || StrToInt(Edit38->Text) > 12 )
{ ShowMessage("Escriba un Número de Mes Valido");
ban = 1;
}
if (StrToInt(Edit40->Text) == 0 )
{ ShowMessage("Escriba un Número de Incremento Valido");
ban = 1;
}
} // fin else



if(Edit2->Text.IsEmpty())
{ ShowMessage("La Casilla Nombre Completo No Debe Estar Vacía");
ban = 1;
}
if(Edit24->Text.IsEmpty() || Edit25->Text.IsEmpty() || Edit26->Text.IsEmpty())
{
ShowMessage("Fecha de Nacimiento No Debe Estar Vacío");
ban = 1;
}
else
if(Edit24->Text.Length()< 4)
{ ShowMessage("La Casilla Año de la Fecha de Nacimiento está Incompleta");
ban = 1;
}

if(RadioGroup1->ItemIndex== -1)
{
ShowMessage("La Casilla Sexo No Debe Estar Vacía");
ban = 1;
}
if(Edit27->Text.IsEmpty())
{
ShowMessage("La Casilla Nombre del Tutor No Debe Estar Vacío");
ban = 1;
}
if(Edit28->Text.IsEmpty())
{
ShowMessage("La Casilla Domicilio - Calle No Debe Estar Vacío");
ban = 1;
}
if(Edit29->Text.IsEmpty())
{
ShowMessage("La Casilla Domicilio - Número No Debe Estar Vacío");
ban = 1;
}



if (ban !=1)
{
if(Edit37->Text.Length()!= 2)
{ StrCopy(condia,"0");
StrCat(condia,Edit37->Text.c_str());
bandia=1;
}
if(Edit38->Text.Length()!= 2)
{ StrCopy(conmes,"0");
StrCat(conmes,Edit38->Text.c_str());
banmes=1;
}
if(Edit39->Text.Length()!= 2)
{ StrCopy(conanio,"0");
StrCat(conanio,Edit39->Text.c_str());
bananio=1;
}
if(Edit40->Text.Length()== 1)
{ StrCopy(coninc,"00");
StrCat(coninc,Edit40->Text.c_str());
baninc=1;
}
else
if(Edit40->Text.Length()== 2)
{ StrCopy(coninc,"0");
StrCat(coninc,Edit40->Text.c_str());
baninc=1;
}

StrCopy(clave,Edit1->Text.c_str());

if(bandia==1)
StrCat(clave,condia);
else
StrCat(clave,Edit37->Text.c_str());

if(banmes==1)
StrCat(clave,conmes);
else
StrCat(clave,Edit38->Text.c_str());

if(bananio==1)
StrCat(clave,conanio);
else
StrCat(clave,Edit39->Text.c_str());

if(baninc==1)
StrCat(clave,coninc);
else
StrCat(clave,Edit40->Text.c_str());

Form3->Visible=true;
Form2->Visible = false;




} // if



delete [] clave;
delete [] condia;
delete [] conmes;
delete [] conanio;
delete [] coninc;

Todo lo de arriba solo valida y lo hace bien, la parte donde esta Form3->Visible = true; si lo hace pero marca un error en tiempo de ejecución al pasar a la siguiente linea Form2->Visible = true;

Espero que alguien me ayude.
Muchas gracias