TFieldGetTextEvent

[jlrbotella]

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