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

[Bart]

On 10/13/16, Michael Van Canneyt <michael at freepascal.org> wrote:

> Call Terminate and exit properly ?
> TCustomApplication has an exitcode property which will set the global exit
> code.

AFAICS not in fpc 3.0.0

(TATCApp = class(TCustomApplication)

procedure TATCApp.OnExcept(Sender: TObject; E: Exception);
begin
  writeln(Format('An exception has occurred of type %s, with
message:',[E.ClassName]));
  writeln(Format('"%s"',[E.Message]));
  writeln('The program will be termminated immediately.');
  if (E is EInOutError) then Self.ExitCode := EInOutError(E).ErrorCode;
end;

air2.lpr(54,35) Error: identifier idents no member "ExitCode"

Probably you can set system.ExitCode before calling Terminate.

Bart