Cambiar el caption de un boton segun el registro

[Casimiro Noteví]

creo recordar, te hablo de memoria, que es mejor que lo hagas en el OnDataChange del DataSource asociado a esa tabla, así al cambiar de registro se lanzará

También te recomiendo que los valores sean 0 y 1, o algo así, no "null".

if tbClientesFechaBaja.AsInteger=1 then
    btBoton.Caption := 'Alta'
else
    btBoton.Caption := 'Baja';

En cuanto al error ese, debe ser de otra cosa.

[[maeyanes]]

Otra forma de verificar si un campo es nulo:

Código Delphi [-]
procedure TDM.TblClientesAfterScroll(DataSet: TDataSet);
begin
  if TblCientessFecha_baja.IsNull then
    FrmClientes.Btnbaja.Caption := 'Baja'
  else
    FrmClientes.Btnbaja.Caption := 'Alta';
end;

[nenufer]

Gracias por contestar tan rapido. Ahora si que me lo hace bien, el problema es que me sigue mostrando el error ese y no se porque. Si quito el codigo no me muestra el error. Si se te ocurre algo ....
Muchas Gracias de todas formas

[Casimiro Noteví]

Empezado por nenufer

Gracias por contestar tan rapido. Ahora si que me lo hace bien, el problema es que me sigue mostrando el error ese y no se porque. Si quito el codigo no me muestra el error. Si se te ocurre algo ....
Muchas Gracias de todas formas

¿qué parte del código quitas y no te sale el error?

[nenufer]

Perdon. La parte del evento OnDataChange del DataSource asociado a esa tabla

Código Delphi [-]
  if TblCientessFecha_baja.Value = 0 then
    FrmClientes.Btnbaja.Caption := 'Baja'
  else
    FrmClientes.Btnbaja.Caption := 'Alta';

Si pongo esto es cuanod me sale el error y si no lo pongo,claro,no me sale el error.
para que no me salga el error tengo que hacer un try except e ir a tools/debuggerOptions/languageExceptions/Stop on delphi exception y desactivarlo. Pero claro si esto lo activo me muestra el error.

[Casimiro Noteví]

pero existe fecha_baja en tbclientes? y está abierta la tabla, base de datos, etc ???

[nenufer]

Si, esta todo bien. Utilizo tablas paradox y las abro todas con un procedimiento. Aunque me muestra este mensaje luego puedo seguir con la ejecucion y me lo hace bien. El problema es

para que no me salga el error tengo que hacer un try except e ir a tools/debuggerOptions/languageExceptions/Stop on delphi exception y desactivarlo. Pero claro si esto lo activo me muestra el error.

Y era por si se podia solucionar el error sin tener que recurrir a esto.

Si tengo que utilizar esto, bueno no pasa nada. Pero era por saber si se podia quitar.

Muchas gracias por tu ayuda.

[[kuan-yiu]]

Bueno, puede que no sea el mismo caso, pero yo siempre que tengo que acdeder al valor de una tabla primero compruebo que la tabla tiene datos, así me ahorro determinados sustos.

Código Delphi [-]
if TblCientess.IsEmpty then
 // Lo que sea
else
 // Tu código