Desbordamiento de pila
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.
|