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
