ExtException::ExtException(const UnicodeString & Msg, const UnicodeString & MoreMessages, const UnicodeString & HelpKeyword) : Exception(OBJECT_CLASS_ExtException, Msg), FMoreMessages(nullptr), FHelpKeyword(HelpKeyword) { if (!MoreMessages.IsEmpty()) { FMoreMessages = TextToStringList(MoreMessages); } }
ExtException::ExtException(TObjectClassId Kind, const UnicodeString & Msg, const UnicodeString & MoreMessages, const UnicodeString & HelpKeyword) : Exception(Kind, Msg), FMoreMessages(nullptr), FHelpKeyword(HelpKeyword) { if (!MoreMessages.IsEmpty()) { FMoreMessages = TextToStringList(MoreMessages); } }
//--------------------------------------------------------------------------- unsigned int __fastcall SimpleErrorDialog(const UnicodeString Msg, const UnicodeString MoreMessages) { unsigned int Result; TStrings * More = NULL; try { if (!MoreMessages.IsEmpty()) { More = TextToStringList(MoreMessages); } Result = MoreMessageDialog(Msg, More, qtError, qaOK, HELP_NONE); } __finally { delete More; } return Result; }