//--------------------------------------------------------------------------- TLogForm * __fastcall CreateLogForm(TLogMemo *ALogMemo) { assert(!LogForm); TLogForm * aLogForm = new TLogForm(Application); try { aLogForm->LogMemo = ALogMemo; aLogForm->Show(); } catch (...) { delete aLogForm; throw; } LogForm = aLogForm; return aLogForm; }
//--------------------------------------------------------------------------- TLogForm * __fastcall CreateLogForm(TLogMemo *ALogMemo) { DebugAssert(!LogForm); Configuration->Usage->Inc(L"LogWindowDisplays"); TLogForm * aLogForm = new TLogForm(Application); try { aLogForm->LogMemo = ALogMemo; aLogForm->Show(); } catch (...) { delete aLogForm; throw; } LogForm = aLogForm; return aLogForm; }