Método free dentro de create

[[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;