mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 23:49:15 +02:00
28 lines
345 B
ObjectPascal
28 lines
345 B
ObjectPascal
{$mode objfpc}
|
|
|
|
uses sysutils;
|
|
type
|
|
zz=class(tobject)
|
|
procedure test;virtual;
|
|
procedure test1;virtual;
|
|
end;
|
|
procedure zz.test;
|
|
begin
|
|
writeln('ok');
|
|
end;
|
|
procedure zz.test1;
|
|
begin
|
|
try
|
|
raise exception.create('zz');
|
|
except
|
|
on e:exception do test;
|
|
end;
|
|
end;
|
|
var
|
|
z:zz;
|
|
begin
|
|
z:=zz.create;
|
|
z.test1;
|
|
z.destroy;
|
|
end.
|