如何用try....except.....end捕捉错误信息?

Question

我现在想用database控件来连接sql server数据库,如果未连接上则出现"数据库连接错误!"的提示,用try....except...end怎么实现?请写出具体实现语句.

Answer 1

try
  database1.connected:=true;
except
  showmessage('conn error');
end;

Answer 2

try
  .....
except
   on （异常，不知道用Exception可以代替所有异常） do ....;
   ...
end;

Answer 3

try
  do..
except
  showmessage('error');
end;/ by LY http://lysoft.7u7.net