Hola.
Agrego algo a lo dicho por maeyanes que sin dudas es la solución al problema de satelier.
Se puede hacer con el método
Free ,
Código Delphi
[-]
begin
with TL2exe.Create do
try
Application.MessageBox('antes del call procces','Error', MB_ICONEXCLAMATION);
Application.Terminate;
finally
Free;
end;
end;
o directamente con el destructor
Destroy:
Código Delphi
[-]
var
L2exe: TL2exe;
begin
L2exe:= TL2exe.Create;
try
Application.MessageBox('antes del call procces','Error', MB_ICONEXCLAMATION);
Application.Terminate;
finally
L2exe.Destroy;
end;
end;
Aunque conviene el método
Free, ya que el código de la llamada es menor, y lo más importante: comprueba que el puntero al objeto no esté vacío.
Si se produce un error durante la creación, Delphi destruye automáticamente el objeto, es decir que usando
Destroy en algunos casos corremos el riesgo de destruir un objeto inexistente.
Es por eso que en la ayuda de Delphi encontramos:
Cita:
The Destroy destructor should never be called directly. To destroy a component created with Create, call the Free method.
|
Un saludo.