如何捕捉异常弹出的窗口里面的字

Question

想捕捉后记录到文件里面
方便维护

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
begin
  try
    i:=Strtoint('a');
  except
      on E: Exception do
      Showmessage(e.Message);
  end;
end;

Answer 2

楼上的意思就是用
try  except把所有容易产生错误的代码括起来
然后再except end;里面写上异常处理的函数
搂住吧showmessage改称写ini文件或者写数据库的
就可以了，不过程序当中try except太多了会多少对程序有点影响的
如果不加这个，有些异常就会被漏掉的。

Answer 3

简单问题回答的真快啊，算我来晚了
try
    ...
  except on E: Exception do
      Edit1.Text:=E.Message;
  end;