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