在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