https://trans.onionmixer.net/wiki/index.php?action=history&feed=atom&title=StartprogrammingusingObjectPascal%3ATryFinally
StartprogrammingusingObjectPascal:TryFinally - Revision history
2026-05-01T11:44:17Z
Revision history for this page on the wiki
MediaWiki 1.43.3
https://trans.onionmixer.net/wiki/index.php?title=StartprogrammingusingObjectPascal:TryFinally&diff=288&oldid=prev
Onionmixer: SPOP TryFinally 페이지 추가
2012-07-26T10:18:18Z
<p>SPOP TryFinally 페이지 추가</p>
<p><b>New page</b></p><div>===try finally===<br />
<br />
문법:<br />
<syntaxhighlight lang="pascal"><br />
try<br />
// Start of protected code<br />
CallProc1;<br />
CallProc2;<br />
// End of protected code<br />
finally<br />
Writeln('This line will be printed in screen for sure');<br />
end;<br />
</syntaxhighlight><br />
<br />
try finally 방법을 사용한 나누기 프로그램입니다.<br />
<br />
<syntaxhighlight lang="pascal"><br />
Program ExceptionHandling;<br />
<br />
{$mode objfpc}{$H+}<br />
<br />
<br />
uses<br />
{$IFDEF UNIX}{$IFDEF UseCThreads}<br />
cthreads,<br />
{$ENDIF}{$ENDIF}<br />
Classes<br />
{ you can add units after this };<br />
<br />
var<br />
x, y: Integer;<br />
Res: Double;<br />
begin<br />
try<br />
Write('Input x: ');<br />
Readln(x);<br />
Write('Input y: ');<br />
Readln(y);<br />
Res:= x / y;<br />
Writeln('x / y = ', Res);<br />
<br />
finally<br />
Write('Press enter key to close');<br />
Readln;<br />
end;<br />
end.<br />
</syntaxhighlight><br />
<br />
이제는 오류 발생 여부와는 관계없이 모든 경우에 ''finally .. end'' 부분을 실행할 것입니다.<br />
[[Category:StartprogrammingusingObjectPascal]]</div>
Onionmixer