Ver Mensaje Individual
  #5  
Antiguo 12-02-2018
fremen fremen is offline
Miembro
 
Registrado: sep 2010
Posts: 20
Reputación: 0
fremen Va por buen camino
Hola... yo siempre uso el metodo 3, pero asegurando mas el finally

Código:
var
  A1, A2: TTest;
begin
  A2 := nil;
  A1 := nil;  
  try
    A1 := TTest.Create;
    A2 := TTest.Create;
    //Use A1 and A2
  finally
    if Assigned(A2) then FreeAndNil(A2);
    if Assigned(A1) then FreeAndNil(A1);
  end;
end
Responder Con Cita