FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error en tiempo de ejecuccion
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.
__________________
Siempre hay un primer momento para todo. |
#2
|
||||
|
||||
Una posibilidad puede ser hacer algo así:
Código:
var ADate: TDateTime; begin try ADate := StrToDate(Edit1.Text); ... except On E: EConvertError do begin Edit1.Text := ''; raise EConvertError.Create('Formato de Fecha Errónea'); end else raise; end; ... end;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
Código:
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) // try FecDada := StrToDate(CBdia.Text + '/' + IntToStr(Lmes) + '/' + Eano.Text); // <==== aca es donde saca el error que deseo acceder y personalizar <Date invalid> // Except ShowMessage('Error en la fecha'); end;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|