在BCB中记录现场错误信息

当程序交给客户后，运行一段间时后才发生了未知的错误，程序员一般就得不到准确的错误现场信息，最好程序自己能进行记录。特考虑如下代码，有更好的方法欢迎提出：

在主单元中定义错误处理程序如下：

Unit1.h

void __fastcall AppException(TObject *Sender, Exception *E);

Unit1.cpp

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnException = AppException;

}

void __fastcall TForm1::AppException(TObject *Sender, SysUtils::Exception *E)

{

//然后可在文件中记录如下三类信息

//__FILE__;源文件名称

//__LINE__;源文件错误发生行号

//Now(); 错误发生时间

Application->ShowException(E);

}

第一次发文档，看看效果，不要见笑

欢迎交流：lih0712@163.net