procedure Tdm.md_publicaDOCGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
dm.md_publicaDOC.Text
end;
Es que le estás diciendo que no haga nada.
Quizás deberías echarle un vistazo a la ayuda del GetText de un Field. Verás que el valor que quieras que se muestre, como texto, del campo debes asignarlo al parámetro variable Text.
Vamos, algo así como:
procedure Tdm.md_publicaDOCGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := dm.md_publicaDOC.Text;
end;
Ahora, seguramente con .TEXT entres en recursión (ya que al pedir el .TEXT del campo, se disparará el GetText...
Mejor prueba con
Text := dm.md_publicaDOC.AsString;
|