Ver Mensaje Individual
  #1  
Antiguo 09-03-2007
jam jam is offline
Miembro
 
Registrado: may 2003
Posts: 74
Reputación: 22
jam Va por buen camino
Método free dentro de create

Esto es una curiosidad que tengo:

¿Se podría llamar al método free dentro del constructor create?

Código Delphi [-]
procedure myclass.create(par:integer)
begin
 inherited create(par);
 ...
 if par<0 then
 begin
   inherited free;
   raise exception.create('par<0');
 end;
 ...
end;
...
myclassvar=myClass.create(-1);

Imaginaros que tengo que crear una clase, y que su constructor recibe un parámetro pero que en el caso de que no sean correcto lanze una excepción
y salga del constructor.
Si par<0 ¿qué valor recibe myclassvar?.
¿Hay alguna forma de asignar a myclassvar nil sin utilizar una función adicional?

Gracias.
__________________
-¿no es usted la hija de un famoso banquero?.
-pues no.
-Perdone, pero por un momento pensé que me había enamorado de usted.
Responder Con Cita