58 lines
2 KiB
HTML
58 lines
2 KiB
HTML
|
<html>
|
|||
|
|
|
|||
|
|
<head>
|
|||
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|||
|
|
<title></title>
|
|||
|
|
<link rel="StyleSheet" href="../../default.css">
|
|||
|
|
</head>
|
|||
|
|
|
|||
|
|
<body>
|
|||
|
|
<H1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></H1>
|
|||
|
|
<p><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <code>Exception</code>:</p>
|
|||
|
|
<blockquote>
|
|||
|
|
<p><code><b>type</b> MyException =<b> class</b>(Exception) <b>end</b>;</code></p>
|
|||
|
|
</blockquote>
|
|||
|
|
<p><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><>, <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:</p>
|
|||
|
|
<blockquote>
|
|||
|
|
<p><code><b>try</b><br>
|
|||
|
|
...<br>
|
|||
|
|
<b>except</b><br>
|
|||
|
|
<b>on</b> MyException <b>do</b><br> writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 0'); <br> <b>on</b> Exception <b>do</b><br><b>
|
|||
|
|
</b>writeln('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'); <br>
|
|||
|
|
<b>end</b>;</code></p>
|
|||
|
|
</blockquote>
|
|||
|
|
<p><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:</p>
|
|||
|
|
<blockquote>
|
|||
|
|
<p><code><b>type</b> <br>
|
|||
|
|
FileNotFoundException = <b>class</b>(Exception)<b><br>
|
|||
|
|
</b> fname: <b>string</b>;<br>
|
|||
|
|
<b> constructor</b> Create(msg,fn: <b>string</b>);<br>
|
|||
|
|
<b> begin</b><br>
|
|||
|
|
<b> inherited</b> Create(msg);<br>
|
|||
|
|
fname := fn;<br>
|
|||
|
|
<b> end</b>;<b><br>
|
|||
|
|
end</b>;</code></p>
|
|||
|
|
<p><code>...</code></p>
|
|||
|
|
<p><code><b>procedure </b>ReadFile(fname: <b>string</b>);<br>
|
|||
|
|
<b>begin</b><br>
|
|||
|
|
<b>if</b> <b>not</b>
|
|||
|
|
FileExists(fname) <b>then</b><br>
|
|||
|
|
<b>raise</b> <b>new</b> FileNotFoundException('<27><><EFBFBD><EFBFBD>
|
|||
|
|
<09><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',fname);<br>
|
|||
|
|
<b>end</b>;</code></p>
|
|||
|
|
<p><code>...</code></p>
|
|||
|
|
<p><code><b>try</b><br>
|
|||
|
|
...<br>
|
|||
|
|
<b>except</b><br>
|
|||
|
|
<b>on</b> e: FileNotFoundException <b>do</b><br><b>
|
|||
|
|
</b>writeln('<27><><EFBFBD><EFBFBD> '+e.fname+'
|
|||
|
|
<09><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'); <br>
|
|||
|
|
<b>end</b>;</code></p>
|
|||
|
|
</blockquote>
|
|||
|
|
</body>
|
|||
|
|
|
|||
|
|
</html>
|