FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
OnGetText
hola club delphi
gracias por la respuesta de los campos Blob le ingreso al evento OngetText esta sentencia, pero no aparece los datos: procedure Tdm.md_publicaDOCGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin dm.md_publicaDOC.Text end; gracias por las respuestas |
#2
|
|||
|
|||
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; |
#3
|
|||
|
|||
Hola Huer,
Otra cosa mas, ¿por que haces referencia al campo por su nombre "real" cuando el procedimiento te lo da limpito? hazlo mejor asi: Código:
procedure Tdm.md_publicaDOCGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin if not Sender.isNull then Text:= Sender.asText; end; Saludos. |
|
|
|