Desbordamiento de pila

[ecfisa]

Hola, mi problema es el siguiente:
Tengo en una unidad (xxx) una función que verifica nros. enteros:
unit xxx;
uses...
interface
procedure NumEntExit(Sender: TObject);
implementation
procedure NumEntExit(Sender: TObject);
begin
with Sender as TCustomEdit do
try
StrToInt(Text);
except
ShowMessage('Error');
SetFocus;
end;
end;

Ahora en la otra (yyy) creo el evento OnExit del TEdit...

procedure TForm1.EditExit(Sender: TObject);
begin
NumEntExit(Sender);
end;

y me da el error desbordamiento de pila. Trate de asignar al evento EditExit la función NumEdit (perteneciente a la otra unidad), pero no he podido.

Agradecería infinitamente cualquier sugerencia.

[[Chris]]

Bueno, no entiendo a que te refieres con "desbordamiento de pila"; pero por otro lado, el que no puedas asignar el evento OnExit al componente se debe a que no se puede asignar un "Ordinal Procedure" a un "Procedure of Object". ¿Cómo solucionar esto? bien, la forma correcta de declarar sería:

Código Delphi [-]
unit xxx;
uses...
interface
Type
TmisProcedimientos = Class
procedure NumEntExit(Sender: TObject);
end;

implementation
procedure TmisProcedimientos.NumEntExit(Sender: TObject);
begin
//  .... tu código
end;

y luego lo asignas de esta forma:

Código Delphi [-]
miEdit.OnExit := TmisProcedimientos.NumEntExit;

Ya con eso deberías poder asignar los eventos sin problemas (sólo mediante código).

Saludos.

[ecfisa]

Muchas gracias, funciona perfecto.