Could anybody tell me why the following error is caught by the try except in an Application, but not in a Library ?

I am needing to find out where try except doesn't do what I think, not fix this code.

 this is a contrived error to show the problem, not part of my code :)

procedure Test();
var
  Ctrl    :TObject;
begin
  try
    Ctrl  := TObject(12345);
    sStr1 := Ctrl.ClassName;
  except
    writeln('Caught Exception');
  end;
end;

Thanks - SteveG
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to