Foros Club Delphi - OnGetText

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - OnGetText (https://www.clubdelphi.com/foros/showthread.php?t=1518)

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

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;

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;

Ademas de hacerlos mas limpio, podrias reutilizar el procedimiento en todos y cada uno de los campos blob de texto que pretendas mostrar.

Saludos.