这句代码报错能解决吗

Question

mdbcrok:=CreateAccess.Create(mdbpath);application.MessageBox(pchar(inttostr(mdbcrok)),'提示信息',64);这句代码报错能解决吗,主要是不能把返回值显示出来...

Answer 1

Try  mdbcrok:=CreateAccess.Create(mdbpath);  application.MessageBox(pchar(inttostr(mdbcrok)),'提示信息',64); 
Except
end;

Answer 2

SysErrorMessage(GetLastError)
这样就可以得到上次发生错误的返回信息

Answer 3

如果是在Create的时候报错，那你这时候看返回值mdbcrok是没有意义的啊

Answer 4

try
mdbcrok:=CreateAccess.Create(mdbpath); excepton e:exception doapplication.MessageBox(pchar(inttostr(e.message)),'提示信息',64);end; 

Answer 5

你需要在CreateAccess.Create(mdbpath);中创建异常
比如
type e1excption=class(exception);
 
type e2excption=class(exception);
CreateAccess.Create(mdbpath)
begin
  if mdppath='' then raise e1excption.create('aaaa');
    
 .....
end;捕获异常
try
  CreateAccess.Create(mdbpath); 
except
  on e1excepion do
    //
  on e2exceptin do
   //
end