Saludos de nuevo.
Tengo un botón con el siguiente código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
z:=TComplejo.NuevoNumero;
If z.CantidadRectangularValida(Edit1.text,Edit2.text) then
showmessage('numero valido')
else
showmessage('numero no valido');
z.free;
end;
donde TComplejo es una clase que definí en una unit a parte , NuevoNumero es un constructor y CantidadRectangularValida es una función que devuelve un booleano.
La cuestión es que cuando el booleano es falso muestra el diálogo conforme el número no es válido y sin problemas, pero si el booleano es verdadero muestra el diálogo normal pero al clickar después a ok me salta error "Project project2.exe raised exception class 'External: SIGSEGV" y se me abre una pestaña con código llamada control.inc marcando el final de
Código Delphi
[-]
procedure TControl.Click;
begin
if (not (csDesigning in ComponentState)) and (ActionLink <> nil) and
((Action=nil) or (@FOnClick <> @Action.OnExecute) or Assigned(FOnClick)) then
ActionLink.Execute(Self)
else
if Assigned(FOnClick) then
FOnClick(Self);
end;
¿Álguien podría explicarme porqué puede suceder esto?
Muchísimas gracias de antemano por su atención y tiempo.