Método free dentro de create

[jam]

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.

[[Lepe]]

Al método create no se le debe pasar parámetros, solamente aquel que necesite para crearse el objeto. Ese valor "par" lo puedes incluir como una propiedad del componente..

Precisamente la comprobación de si par es mayor que cero, lo debería hacer el programa principal, no tu clase.

Respecto a tu duda, creo que no existe nada, porque estas "saltándote" la filosofía POO.

Edito:

Código Delphi [-]
type
  EmyClass = class (Exception);

TmyClass = Class(TObject)
private 
  Fpar:integer;
  procedure SetPar(Value:integer);
public
  property Par :integer read Fpar write SetPar
end;

...
procedure TmyClass.SetPar(Value:integer);
begin
  if Value < 0 then
    raise emyClass.CreateFmt('El valor %d debe ser mayor que cero',[Value]);
  else
  begin 
    Fpar := Value;
   ....
  end;
end;

Código Delphi [-]

  myClass = TmyClass.Create;
try
  myclass.par := -1;
except
   on E :EmyClass then
     Freeandnil(myclass);
end;

Saludos.

[[seoane]]

Según nos cuenta la ayuda de Delphi:

Empezado por Ayuda de Delphi

If an exception is raised during execution of a constructor that was invoked on a class reference, the Destroy destructor is automatically called to destroy the unfinished object.

Es decir, con solo provocar una excepción el método Destroy es llamado de forma automática. En cuanto a lo de asignar el valor nil, basta con que se lo asignes antes de llamar al método Create, si se produce una excepción el valor no se cambiara.

Aunque personalmente me gusta mas el modelo que plantea Lepe.

[[Lepe]]

Pues eso no lo sabía, gracias por el apunte seoane. Aunque no creo que esté pensado para abusar de ello.

¿Qué sentido tiene enviar a crear algo si podemos omitir ese tiempo de creación?

Es lo mismo que las excepciones:
- Puedes dejar que ocurran sin más: StrToInt('');
- O puedes prevenirlas usando otras técnicas StrToIntDef, TryStrToInt, etc.

En este caso yo primero preguntaba:

Código Delphi [-]
var value:integer;
begin
  myClass := nil;
  if  Value > 0 then 
  begin
      myClass := TmyClass.Create;
     Par := Value;
  end;

Saludos

[jam]

Bueno, ojeando la vcl se pueden encontrar varios ejemplos:

Código Delphi [-]
{ TFileStream }

constructor TFileStream.Create(const FileName: string; Mode: Word);
begin
  if Mode = fmCreate then
  begin
    FHandle := FileCreate(FileName);
    if FHandle < 0 then
      raise EFCreateError.CreateResFmt(@SFCreateError, [FileName]);
  end else
  begin
    FHandle := FileOpen(FileName, Mode);
    if FHandle < 0 then
      raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);
  end;
end;

aquí se puede ver que se lanzan exepciones, yo lo que quería saber es si hay alguna alternativa a

Código Delphi [-]
try
fn:=Tfilestrem.create('fichero que no existe',fmopen)
except
 fn:=nil;
end;