Asignar evento Oncalcfield en tiempo de ejecucion

[vtdeleon]

Saludos

islu, Estas seguro que esto te funciona:-S. Hice un ejemplo casi identico y no marcha

[jmariano]

La respuesta dada por islu funciona, pero el problema es que, como asignamos el evento "OnCalcFields" mas tarde, tenemos que hacer un refresco o un desplazamiento en el DataSet para que se actualice el valor del campo calculado. (Esto lo comento en base a una pequeña prueba que hice sobre el tema).

Así que la asignación del evento quedaría, por ejemplo, así

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
    Table1.OnCalcFields := CalcField;
    Table1.First; // Para que actualice el resultado, también podría ser 'Refresh'
end;

Saludos!

[el_barto]

Gracias J es ciero vt hazle un refresh y veras que funciona perfectamente

[vtdeleon]

Saludos

Ok,ok verdad, ya vi el error que tenia

Código Delphi [-]
Table1.OnCalcFields := CalcField(asignando dataset);//Como tenia un parametro, lo estaba asignando