Hola:
He comprobado que me he equivocado en el nombre de función, pero ha sido un error. Aquí teneís un ejemplo más claro:
Código Delphi
[-]unit libedicom;
interface
uses db, sysutils, ifxsql, classes, ifxconnection, dialogs, ifxdataset;
procedure FormatearEstadoDI(Sender: TField; var Text: string; DisplayText: Boolean);
.....
Código Delphi
[-]unit pedidos_entrada;
interface
uses
db,dialogs, libedicom
type
TfChildPedidoEntrada = class(TForm)
private
mitabla : TTable;
end;
....
procedure TfChildPedidoEntrada.FormShow(Sender: TObject);
begin
miTabla.fieldbyname('estado').OnGetText := libedicom.FormatearEstadoEdi;
end;
He comprobado que la función FormatearEstadoEdi, solo funciona cuando la declaro dentro de la clase TfchilpedidoEntrada. ¿Por que no la puedo poner en otro unit?.
Gracias.
JL
Lo Edite para arreglar las etiquetas delphi