BCB6.0中的__FUNC__(vc++6.0中没有此功能)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString s1 = __FILE__;
    AnsiString s2 = __FUNC__;
    AnsiString s3 = __LINE__;
    AnsiString s4 = __DATE__;
    AnsiString s5 = __TIME__;  // 编译时间
    ShowMessage(s1 + "\n" + s2 + "\n" + s3 + "\n" + s4 + "\n" + s5 + "\n");
}