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