如何在Delphi中实现下面这段VB代码的功能？(10分)

T

talentboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-14

• #1

On Error Resume Next
.........
If Err.Number = 0 Then
MsgBox ("Connected.")
Else
MsgBox ("Not connected:" &amp
Err.Description &amp
".")
End If
...............

 

L

liaotw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-14

• #2

我觉得这个本来就是VB的一个弱点啊，老兄。VB还有一句：
On error goto over
.............'需要进行保护的代码'

exit sub

over:
.........'错误处理代码'
end sub
和DELPHI的try except/try finally相同。建议使用。

 

T

talentboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-14

• #3

但是错误代码如何得到呢？在delphi中好像没有vb的err对象呀。

 

I

ili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-14

• #4

except
on EInOutError do

算不算呀？

 

N

netis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-15

• #5

加入特殊的编译指令，扑捉错误 看看makedir的帮助例子。

 

D

deepnight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-23

• #6

try
.........
showmessage('Connected!')

except
on E:Exception do
showmessage('Not connected:'+E.Message+'.')

end;//try

 

R

RainySoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-26

• #7

你可以去查找相关的书籍（具体我也记不清了）
或者用标准的GetLastError（你看一些API的书，里面有描述具体的值代表什么！[]）,
应该就可以得出具体出错描述，相信VB能得，DELPHI也能！

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #8

多人接受答案了。