6 lines
66 B
ObjectPascal
6 lines
66 B
ObjectPascal
|
try
|
||
|
|
Z := DoDiv (X,Y);
|
||
|
|
except
|
||
|
|
on EDivException do Z := 0;
|
||
|
|
end;
|