david
13eee3f7f4
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jcl@20 c37d764d-f447-7644-a108-883140d013fb
29 lines
366 B
ObjectPascal
29 lines
366 B
ObjectPascal
unit StackTrackDLLsStaticUnit;
|
|
|
|
interface
|
|
|
|
procedure Error1; stdcall;
|
|
procedure Error2; stdcall;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
procedure Error1_1;
|
|
begin
|
|
StrToInt('x');
|
|
end;
|
|
|
|
procedure Error1; stdcall;
|
|
begin
|
|
Error1_1;
|
|
end;
|
|
|
|
procedure Error2; stdcall;
|
|
begin
|
|
raise Exception.Create('Exception from StaticLibrary.dll');
|
|
end;
|
|
|
|
end.
|