try-try-finally-finally

[roman]

Hola,

Varias veces he visto esta construcción:

Código Delphi [-]
try
  ObjetoA := TObjectoA.Create;
  
  try
    ObjetoB := TObjetoB.Create;
    
    { algo de código }

  finally
    ObjetoB.Free;
  end;
finally
  ObjetoA.Free;
end;

¿Por qué no simplemente poner?

Código Delphi [-]
try
  ObjetoA := TObjetoA.Create;
  ObjetoB := TObjetoB.Create;

  { algo de código }

finally
  ObjetoA.Free;
  ObjetoB.Free;
end;

// Saludos

[dec]

Hola,

Creo que alguna vez escribí código como el que copias arriba. No sé. El asunto parece más o menos lógico, pero, seguramente habría que pensar las cosas mejor, y ver si realmente, igual incluso convendría hacerlo como dices Román. Hum...

[[seoane]]

Es una rutina: crear objeto, try ... finally y destruir el objeto. Es algo que ya se hace casi sin pensar, como poner un begin ... end. Además a mi me parece que el código queda mas estructurado, mas fácil de leer y modificar. De todas formas supongo que el compilador, después de optimizar un poco, generara un ejecutable muy parecido.

[[eduarcol]]

la unica logica que le veo a esa estructura es que hubiese codigo entre los dos finally:

Código Delphi [-]
try
  ObjetoA := TObjectoA.Create;
  
  try
    ObjetoB := TObjetoB.Create;
    
    { algo de código }

  finally
    ObjetoB.Free;
  end;
  { algo de código }
finally
  ObjetoA.Free;
end;

[[Caral]]

Hola
Metiendome donde no me llaman diria que se crea un objeto y si este esta creado entonces se crea el segundo objeto.
Yo lo entendería así:

Código Delphi [-]
try
      ObjetoA := TObjectoA.Create;
      if ObjetoA.Create then
      try
      ObjetoB := TObjetoB.Create;
      { algo de código }
      finally
      ObjetoB.Free;
      end;
finally
  ObjetoA.Free;
end;

Se supone que el primer objeto se creo, pero tal vez fallo algo, no se.
Interesante.
Saludos

[[BlueSteel]]

Empezado por Caral

Hola
Metiendome donde no me llaman diria que se crea un objeto y si este esta creado entonces se crea el segundo objeto.
Yo lo entendería así:

Código Delphi [-]try ObjetoA := TObjectoA.Create; if ObjetoA.Create then try ObjetoB := TObjetoB.Create; { algo de código } finally ObjetoB.Free; end; finally ObjetoA.Free; end;

Se supone que el primer objeto se creo, pero tal vez fallo algo, no se.
Interesante.
Saludos

yo concuerdo con Caral, puede ser que para crear el 2do objeto sea necesario que el primero exista.....

No es lo mismo crear 2 objetos, que crear 2 objetos pero que uno dependa del otro... es decir para llegar al objeto 2 debo pasar obligatoriamente por 1... de lo contrario no procede...

Salu2