FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
SOLUCION:
Código:
... var p : TDataSetNotifyEvent; pt : pointer; begin ... p:= dataset.OnCalcFields; pt := @dataset.OnCalcFields; dataset.OnCalcFields := nil; ... // calculos con los campos ... dataset.OnCalcFields := p; if pt <> nil then dataset.OnCalcFields(dataset); ...
__________________
El secreto de la libertad está en no tener miedo. |
|
|
|