当程序交给客户后，运行一段间时后才发生了未知的错误，程序员一般就得不到准确的错误现场信息，最好程序自己能进行记录。特考虑如下代码，有更好的方法欢迎提出：
在主单元中定义错误处理程序如下：
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
