10 lines
155 B
ObjectPascal
10 lines
155 B
ObjectPascal
|
type
|
|||
|
|
{!}MyEx = class(Exception)
|
|||
|
|
|
|||
|
|
public constructor(o: object; s: string) := inherited Create(s);
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
raise new {@}MyEx;
|
|||
|
|
end.
|