Como insertar NULO en campo numerico

[Antoniov]

Ok, de esa manera también funciona.

He encontrado otra que me resulta más gráfica.

Código Delphi [-]
TablaCampo.AsVariant := NULL;

Muchas gracias a todos.

[SAGOAN]

Al hilo de este problema yo tengo uno similar. Desde que uso Delphi 2010 (BBDD interbase) he notado un comportamiento diferente de los datos numéricos en los TDBEdits. Me explico tengo una aplicación que anteriormente estaba compilada con Delphi 2007 (BBDD interbase) y cuando hacía una edit, append, el TDBEdit que estaba enlazado a un campo numérico funcionaba correctamente de forma que si tenía un dato y borraba dicho dato con la tecla "DEL" o "SUPR" al pasar a otro campo el valor del DBEdit quedaba vacio. Ahora con Delphi 2010 no es así, pues si borro y paso a otro campo, el valor vuelve aparecer de nuevo.

He intentado capturar la presión de la tecla de borrado "VK_BACK" en el evento OnKeyPress del DBEdit y añadir lo que aquí se ha dicho:

TDBEdit(sender).field.Clear;

Pero, nada, lo único que funciona es poner un CERO para que borre el anterior valor.

¿Alguna idea?

Muchas Gracias

[SAGOAN]

Hola a todos:

He encontrado la solución: pongo el link que me ha ayudado:
_h_ttp://qc.embarcadero.com/wc/qcmain.aspx?d=78920

El código de "IBCustomDataSet.pas" lo he cambiado (línea 3480) por el siguiente y funciona:

//. CODIGO ANTIGUO
//.
//. if (Buffer = nil) or
//. (Field is TIBStringField) and (PChar(Buffer)[0] = #0) then
//. if TIBStringField(Field).EmptyAsNull then
//. rdFields[FMappedFieldPosition[Field.FieldNo - 1]].fdIsNull := True
//. else
//. begin
//. rdFields[FMappedFieldPosition[Field.FieldNo - 1]].fdDataLength := 0;
//. rdFields[FMappedFieldPosition[Field.FieldNo - 1]].fdIsNull := False;
//. end
//. else
//. CODIGO NUEVO
//.
if (Buffer = nil) then
rdFields[FMappedFieldPosition[Field.FieldNo - 1]].fdIsNull := True
else
//.FIN GODIGO ANTIGUO

Depués se compila la libreria "IBCustomDataSet.pas" para obtener la DCU y se cambia en el directorio donde se encuentre la original. OJO, no borreis la original, cambiarla de nombre.

Un saludo a todos