我有大概10多个procedure要顺序执行……(50分)

I

iCANK

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #1

我有大概10多个procedure，第一个procedure是初始化，中间的按一定的顺序完成不同阶段
的计算任务，最后一个是保存计算结果。在一个Button的click事件里顺序执行。如果中间
任何一个procedure出了问题，就退出整个click事件，并弹出对话框，说明那部分出了问题。
现在的问题是：
1.怎么样一个procedure出问题，就退出整个click事件。这里的出问题不是发生系统错误，
而是比如 if a < b then Exit;就退出。好像可以用Raise。
2.每个procedrue都要有自己的出错提示。比如，提示“计算 2 + 3的时候发生错误。”，
不能先设置一个出错标志，到最后检测这个标志，出错就笼统的showmessage.“计算错误”
提示。

 

X

xkliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #2

1.先定义一个
TMyException = class exception
end;

2. 用raise产生exception,比如
raise TMyException.Crate ('计算 2 + 3的时候发生错误');

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #3

if a<b then Raise Exception.Create('a<b');
if b<c then raise Exception.Create('b<c');
...

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #4

听听～

 

N

net_donkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #5

听

 

I

iCANK

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #6

Raise以后怎么退出呢？？
怎么没有下文了？
还有，听说Raise的开销比较大，如果有很多Raise，怎么办？
初学者，请见谅！：P

 

T

t365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #7

if a < b then
begin
showmessage('a<b出错');
Abort;
end;

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #8

raise后会自动退出procedure,直到你处理了这个Exception.
Raise开销比较大？没听说过，好象也解释不通

 

I

iCANK

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #9

还是用了t365的，简单！：）
谢谢！！