请教，如何让程序忽略所有的错误，不弹出报错的提示？？？谢谢！！

Question

请教，如何让程序忽略所有的错误，不弹出报错的提示？？？谢谢！！谢谢！！！

Answer 1

试试这样，在主窗体的代码中：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure MyException(Sender: TObject; E: Exception);
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.MyException(Sender: TObject; E: Exception);
begin
    //
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
    Application.OnException := MyException;
end;end.

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyException;
end;procedure TForm1.MyException(Sender: TObject; E: Exception);
begin
  //if E is .... then ...
  //将所有错误列出来处理  
end;

Answer 3

呵呵~~，有办法：
  1、楼主自己写的程序中不存在BUG；
  2、操作系统不出错；
  3、在有可能出错的地方采用容错处理；try  except  end; ( try try  except  end  finally  end;)