9 lines
96 B
ObjectPascal
9 lines
96 B
ObjectPascal
|
procedure test3;
|
||
|
|
begin
|
||
|
|
try
|
||
|
|
test2;
|
||
|
|
finally
|
||
|
|
ShowMessage('test3 finally');
|
||
|
|
end;
|
||
|
|
end;
|