Codigo Firebird con Lazarus y Filtros

[ecfisa]

Hola Minoru.

Empezado por Minoru

pero cuando llama a FALLA
sale (MEMO), cosa que utilice el mismo código en Embarcadero y me mostraba los datos correctamente
www.dropbox.com/s/txkturm68im8kzy/error.jpg

Para visualizar los caracteres de la columna blob, agrega este código al evento OnGetText del campo "FALLA":

Código Delphi [-]
procedure TForm1.SQLQFALLAGetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  aText:= Copy(TStringField(Sender).AsString, 1, MaxInt);
end;

Saludos