CFPA86
24-09-2003, 16:19:42
Hola foristas.
Tengo una aplicacion X la cual la ejecuto y al llegar a cierta linea saca un error, se el motivo de este error, mi pregunta es como hago para yo personalizar este error (acceder a el), basicamente el error es debido a que esta tratando de convertir una fecha, y esta esta mal ingresada.
Codigo
var
FecDada : TdateTime;
Lmes : byte;
begin
if (GswBot = 1) then
begin
if (Panel2.Enabled) then
begin
Panel2.Enabled := True;
Lmes:= FunDevMes(CBmes.Text); // <===== esta correcto devuelve el mes 'Enero...etc) //
FecDada := StrToDate(CBdia.Text + '/' + IntToStr(Lmes) + '/' + Eano.Text); // <==== aca es donde saca el error que deseo acceder y personalizar <Date invalid> //
Espero me de a entender para que me puedan colaborar.
Gracias.
Tengo una aplicacion X la cual la ejecuto y al llegar a cierta linea saca un error, se el motivo de este error, mi pregunta es como hago para yo personalizar este error (acceder a el), basicamente el error es debido a que esta tratando de convertir una fecha, y esta esta mal ingresada.
Codigo
var
FecDada : TdateTime;
Lmes : byte;
begin
if (GswBot = 1) then
begin
if (Panel2.Enabled) then
begin
Panel2.Enabled := True;
Lmes:= FunDevMes(CBmes.Text); // <===== esta correcto devuelve el mes 'Enero...etc) //
FecDada := StrToDate(CBdia.Text + '/' + IntToStr(Lmes) + '/' + Eano.Text); // <==== aca es donde saca el error que deseo acceder y personalizar <Date invalid> //
Espero me de a entender para que me puedan colaborar.
Gracias.