10 lines
208 B
ObjectPascal
10 lines
208 B
ObjectPascal
begin
|
|
var e: System.InvalidCastException;
|
|
try
|
|
var i := real(object(integer(5)));
|
|
i := 2;
|
|
except on ex: Exception do
|
|
e := ex as System.InvalidCastException;
|
|
end;
|
|
assert(e <> nil);
|
|
end. |