如何判断过程在异常中运行(到底谁能解,已经很久了,真的没人知道?) ,再 + 100 分 (32分)

to mostone: 多谢您的热心,不过您恐怕误会了楼主的意思,多心了。
在我看来此贴的气氛还是没有问题的:)

Another_eYes 大虾的建议挺巧妙的,值得一试。
 
我到是觉得定义几个常量到比较科学.
 
我的提出此问题的目的是解决类似问题
procedure DoLog
begin
if xxx 异常 then
....
end;

FuncC..
begin
....
end

FuncB...
begin
try
FuncC
finally
DoLog
end
end

FuncA ....
begin
CALL FuncB
end

procedure work
begin
try
FuncA
finally
DoLog
end;
end;

不知道大家时候看得明白?????
因为 finally 捕获不到异常,所以 例如: procedure work
必须改成
procedure work
begin
try
FuncA
DoLog
except
DoLog
end;
end;

但是这样写,非常之不爽......
 
此问题完美解决者 再 +100 分
 
我已经找到解决办法了,整理中。。。[:D]

 
呵呵,不放血,就是没人动真格的,哈哈,答应的分数绝不食言.....
 
呵呵,别说的我像是到处骗分似的:)

算你运气好啰,我一不小心找到一个好办法,正好我也好久没有写心得了,
就顺势整理一下,贴出来:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2211454

其实今天研究这个问题,也使我弄清楚了不少原来比较模糊的东西
又能帮助到你
又能顺便得点分:)

一举三得,何乐而不为呢,呵呵[:D]

哦,对了,听说你也是桂林的?什么时候出来请我吃顿米粉就是了:)
 
该死,听谁说的我是桂林的???,被发现了.......网上现在有人诋毁桂林“骗子云集”,不敢承认呀......
 
分可以不要,米粉我是一定要吃的:)
把米粉给我发到信箱里面:xbeta#163.net [:D]

 
去看beta的贴子吧。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2211454

^.^
 
To Another_eYes

可以详细说说你的方法吗?
 
8好意思,先去看卡beta的文章,呵呵!
 
to aimingoo: 我那帖子就是在看了本贴后写的:)
 

Similar threads

S
回复
0
查看
955
SUNSTONE的Delphi笔记
S
S
回复
0
查看
778
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
505
import
I
顶部 底部