bool ExceptionFullMessage(Exception * E, UnicodeString & Message) { bool Result = ExceptionMessage(E, Message); if (Result) { Message += L"\n"; ExtException * EE = dyn_cast<ExtException>(E); if ((EE != nullptr) && (EE->GetMoreMessages() != nullptr)) { Message += EE->GetMoreMessages()->GetText() + L"\n"; } } return Result; }
TStrings * ExceptionToMoreMessages(Exception * E) { TStrings * Result = nullptr; UnicodeString Message; if (ExceptionMessage(E, Message)) { Result = new TStringList(); Result->Add(Message); ExtException * ExtE = dyn_cast<ExtException>(E); if ((ExtE != nullptr) && (ExtE->GetMoreMessages() != nullptr)) { Result->AddStrings(ExtE->GetMoreMessages()); } } return Result; }
TStrings * ExceptionToMoreMessages(Exception * E) { TStrings * Result = nullptr; UnicodeString Message; if (ExceptionMessage(E, Message)) { Result = new TStringList(); Result->Add(Message); ExtException * ExtE = NB_STATIC_DOWNCAST(ExtException, E); if ((ExtE != nullptr) && (ExtE->GetMoreMessages() != nullptr)) { Result->AddStrings(ExtE->GetMoreMessages()); } } return Result; }