Codigo Firebird con Lazarus y Filtros

[ecfisa]

Hola Minoru.

El evento OnGetText ahora deberá residir en el TDataModule y lo creas del mismo modo que cuando estaba en el TForm.Estando SQLQ seleccionado:

Click botón derecho del mouse -> Editar campos... -> FALLA. Luego: Inspector de objetos -> pestaña Eventos -> Doble click sobre OnGetText y dentro el código anterior.

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

Saludos

[Minoru]

muchas gracias ecfisa, otra vez. una consulta. es normal que no salga la letra "Ñ" y en su lugar sale "?" cuando llamo los datos?