10 lines
163 B
ObjectPascal
10 lines
163 B
ObjectPascal
type
|
|
MyException=class(Exception)
|
|
constructor :=
|
|
create('Some text');
|
|
end;
|
|
|
|
begin
|
|
var ex := new MyException;
|
|
assert(ex.Message = 'Some text');
|
|
end. |