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. |