Duda para asignar un procedimiento a un evento

[dtomeysoto]

Saludos colegas.

Estoy queriendo visualizar en un DBGrid una tabla que está en un servidor PostgreSQL. Esta tabla tiene solo dos campos, IP de tipo inet y MAC de tipo macaddr. Estoy usando componentes UniDAC para la conexión a la base de datos.

Cuando pongo un DataSource y lo vinculo con la TUniQuery con lo que quiero mostrar, en la DBGrid me pone en cada campo (MEMO).

Se me ocurrió crear dos campos calculados de tipo string y en el evento OnCalcFields darle valor a estos. Con lo anterior resolví el problema. Ya en el DBGrid me salen los valores IP y MAC como deberían ser.

Para lo anterior tomé prestada una Unit de otro programa que también utiliza esa base de datos y es la que tiene los componentes para la conexión al servidor PostgreSQL pero no quiero allí esos campos calculados.

Desde mi otro programa en tiempo de ejecución creo los dos campos calculados para no modificar esa Unit pero no se cómo declarar un procedimiendo que me va a calcular los campos y asignárselo al evento OnCalcFields de la TUniQuer.

Podían ayudarme? gracias.

[Casimiro Notevi]

¿Pero qué quieres conseguir?

[dtomeysoto]

Empezado por Casimiro Notevi

¿Pero qué quieres conseguir?

Hola Casimiro, yo lo que quiero es crear los campos calculados en tiempo de ejecución, para esto he hecho lo siguiente:

Código Delphi [-]
procedure TFMainForm.FormCreate(Sender: TObject);
var
  sIP, sMAC: TStringField;
begin
  sIP  := TStringField.Create(dmPSQLCon.uqARP);
  sIP.FieldKind := fkCalculated;
  sIP.FieldName := 'sIP';
  sIP.Size := 15;
  sIP.Calculated := True;

  sMAC := TStringField.Create(dmPSQLCon.uqARP);
  sMAC.FieldKind := fkCalculated;
  sMAC.FieldName := 'sMAC';
  sMAC.Size := 17;
  sMAC.Calculated := True;

  dmPSQLCon.uqARP.Fields.Add(sIP);
  dmPSQLCon.uqARP.Fields.Add(sMAC);

ahora el problema que tengo es cómo hacer lo siguiente:

dmPSQLCon.uqARP.OnCalcFields := MiProcCalcFields(dmPSQLCon.uqARP);

dónde y cómo declaro el procedimiento MiProcCalcFields para poder asignárselo a dmPSQLCon.uqARP.OnCalcFields

[Casimiro Notevi]

Pero no necesitas los campos calculados para presentarlos en el dbgrid, puedes mostrar los memos directamente.
Descarga y echa un vistazo a esto, entre los ejemplos de trucos para el dbgrid, está también el de mostrar el contenido de un memo.

[Neftali [Germán.Estévez]]

Empezado por dtomeysoto

Cuando pongo un DataSource y lo vinculo con la TUniQuery con lo que quiero mostrar, en la DBGrid me pone en cada campo (MEMO).

Esto es un poco raro.
¿Cómo están definidos los campos en la tabla de la Base de Datos?