[fpc-pascal] Generic way to pre-maturely exit TCustomApplication without memory leaks

[Graeme Geldenhuys]

On 2016-10-12 20:37, grouchysmurf wrote:
> Say, I have a code, where TH is a Class(TCustomApplication):
> 
>   ph := TH.Create(Nil);
>   ph.Initialize;
>   ph.ProcessOptions;
>   ph.Run;
>   ph.Free;

I would also rewrite that with a try..finally as in:

ph := TH.Create(nil)
try
  ph.Initialize;
  ph.ProcessOptions;
  ph.Run;
finally
  ph.Free;
end;



Regards,
  Graeme

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

My public PGP key:  http://tinyurl.com/graeme-pgp