|
Añádele la información:
TDateTime necesita un formato de dd/mm/yyyy hh:mm:ss
En este caso puedes hacer dos opciones
Fregistro.dtp_fecha_turno.DateTime:=StrToDate(FieldByname('fecha_turnado').AsString);
El dato fecha_turnado puede ser vacío ¿verdad?
If FieldByname('fecha_turnado').Value is null then << lo que quieras >>
Posicionarlo como "clear" de tal manera que en la base queda en blanco.
Asígnarle una fecha por defecto, o si el campo es un formato dd/mm/yyyy deberás añadirle la hora.
Sino, también puedes capturar el código crítico
Try
Fregistro.dtp_fecha_turno.DateTime:=StrToDate(FieldByname('fecha_turnado').AsString);
Except << aquí metes el código para el error >>>
por ejemplo: Fregistro.dtp_fecha_turno.DateTime := nil
End;//del try
No recuerdo si se le asigna con nil. Sino puedes utilizar la opción de asignarle la fecha por defecto que requieras.
Saludos.
|