Вывод сообщения об ошибке до запуска функции Application->Run()

@АнаП · Регистрация: 20.05.2021

Студворк — интернет-сервис помощи студентам

Есть потребность включить в выводимое сообщение переменный (набор констант) индекс ошибки.
Но формат вызова функции Application->MessageBox подразумевает лишь константные аргументы:

C++
1
int __fastcall MessageBox(const char * Text, const char * Caption, int Flags = MB_OK);

Можно ли обойти это ограничение?
Мне желательно включать в сообщение фиксированный индекс ошибки (1..20).
Напрашивается индексированный набор констант. Но строка достаточно длинная, и массив из 20 длинных строк конечно можно накопировать. Но как-то некрасиво.
Если "склеивать" строку, то это уже не константа, и компилятор ругается.
Есть ли лучшие решения?

Verevkin · 21.05.2025, 13:06

Сообщение от АнаП

Если "склеивать" строку, то это уже не константа, и компилятор ругается.
Есть ли лучшие решения?

Чот ты втираешь мне какую-то дичь.
Сделай тестовый проект, моделирующий такое поведение, и дай его сюда.

quwy · 21.05.2025, 13:09

АнаП, слово const в декларации параметра функции совершенно не обязывает вас передавать туда исключительно константу.

Verevkin · 21.05.2025, 13:34

Это тебе не Delphi, это Билдер, детка! Тут только хардкор!!

Вот один из вариантов.

Вывод сообщения об ошибке до запуска функции Application->Run()

Можно подсократить это безобразие, канешна:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("ufMain.cpp", Form1);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->CreateForm(__classid(TForm1), &Form1);
 
        // Вывод сообщения об ошибке до запуска функции Application->Run()
        Randomize();
        int err = 1 + Random(100); //1 + rand() % 100;
        Application->MessageBox(Format("Ашыпка номер %d.", err).c_str(), L"Error, mazafaka!", MB_OK | MB_ICONSTOP);
 
        // запуск цикла оконных сообщений
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    catch (...)
    {
        try
        {
            throw Exception("");
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
    return 0;
}

Но я даже в Delphi давны давно написал себе модуль с функциями, принимающими параметры форматирования и показывающими готовые сообщения.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
{$REGION 'диалоги'}
// выдача сообщений всяких разных
procedure ShowInfoDlg(const msg: string); overload;
procedure ShowInfoDlg(const AFormat: string; const AArgs: array of const); overload;
procedure ShowWarningDlg(const msg: string); overload;
procedure ShowWarningDlg(const AFormat: string; const AArgs: array of const); overload;
procedure ShowErrorDlg(const msg: string); overload;
procedure ShowErrorDlg(const AFormat: string; const AArgs: array of const); overload;
procedure ShowExceptionDlg(AException: Exception);
procedure ActionNotRealized(Sender: TObject);
procedure FeatureNotRealized(const Feature: string);
function SaveRequest(const AFileName: string): Integer;
function QueryYesNo(const msg: string): Boolean; overload;
function QueryYesNo(const AFormat: string; const AArgs: array of const): Boolean; overload;
function WarningYesNo(const msg: string): Boolean; overload;
function WarningYesNo(const AFormat: string; const AArgs: array of const): Boolean; overload;
function InBoundsDlg(const X, LowX, HighX: Integer): Boolean;
 
// диалоги выбора цветов и шрифтов
function PromptForFont(AFont: TFont; const AOpts: TFontDialogOptions = [fdEffects]; const ATitle: string = ''): Boolean;
function SelectFont(AFont: TFont; const ATitle: string = ''): TFont;
function PromptForColor(var AColor: TColor; const AOpts: TColorDialogOptions = [cdFullOpen]; const ATitle: string = ''): Boolean;
function SelectColor(const AColor: TColor; const AOpts: TColorDialogOptions = [cdFullOpen]; const ATitle: string = ''): TColor;
function PromptForFileNameEx(var AFileName:      string;      // (+02 авг 2021)
                             const AFilter:      string = '';
                             const ADefaultExt:  string = '';
                             const ATitle:       string = '';
                             const AInitialDir:  string = '';
                             const AOptions:     TFileDialogOptions = [];
                             const SaveDialog:   Boolean = False): Boolean;
{$ENDREGION}

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

quwy Native x86 6857 / 3790 / 1025 Регистрация: 13.02.2013 Сообщений: 11,861
	21.05.2025, 13:09
	АнаП, слово const в декларации параметра функции совершенно не обязывает вас передавать туда исключительно константу. 0