一个问题求指教

Question

try
  DM.ADOConnection1.Close;
  DM.ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='
    + QuotedStr(edtPassword.Text) + ';Persist Security Info=True;User ID='
    + QuotedStr(cbbName.Text) + ';Initial Catalog=Depot;Data Source=' +
      QuotedStr(cbbIP.Text);    DM.ADOConnection1.Open;
  except
    Application.MessageBox(pchar('Á¬½Ó³ö´í'),'¾¯¸æ',MB_OK+MB_ICONWARNING);
    exit;
  end;为什么程序运行时产生异常了而没有运行 我的异常处理模块？

Answer 1

你要确认异常发生在try之前还是在try之后。

Answer 2

如果在delphi环境内运行，程序会先报错，然后F8继续时才会弹出messagebox。直接运行exe就好了。

Answer 3

Application.MessageBox(pchar('Á¬½Ó³ö´í'),'¾¯¸æ',MB_OK+MB_ICONWARNING);
怎么有“乱码”呀》》》》》》》》》》