Использование функции wsprintf

Delphi , Синтаксис , Синтаксис

Оформил: DeeCo

Автор: Виктор Кода

Часто необходимо вывести (к примеру, даже в окошко с MB_OK) какое-то значение, будь то код ошибки типа HRESULT или результат работы какой-либо функции. Простейшее решение - использовать IntToStr() из модуля sysutils.pas. Однако в этом случае размер минимальной программы на Delphi увеличится с 16 до 41 кб, что лично меня очень неудовлетворяет. Хочется получить реальное преимущество в размерах, раз уж не используется VCL. Есть и другое объяснение - хотя мы и живём в эпоху быстрых процессоров и ёмких HDD, следить за качеством кода программ и его размерами обязывает культура программирования. В конце-концов это просто неразумно - ради одной функции тащить весь код из sysutils.pas и sysconst.pas. Складывается глупейшая ситуация - ради преобразования чисел в строку приходится мириться с тем, что к готовому exe-модулю подключаются многочисленные resourcestring и хлам в виде кучи ненужного кода.

function wsprintf(Output: PChar; Format: PChar): Integer; stdcall;

WINUSERAPI int WINAPIV wsprintfA(LPSTR, LPCSTR, ...);

Я всё-таки нашёл способ приспособить wsprintf() для своих нужд. Выход - описать её самостоятельно в своей программе так:

function wsprintf(lpOut: LPSTR; lpFmt: LPCTSTR; p: Pointer): Integer;
  stdcall; external 'user32.dll' name 'wsprintfA';

var
  szMessage: PChar;
  GetMem(szMessage, 256); // Определяем размер строки в памяти
  wsprintf(szMessage, 'Number %d', Pointer(899034));
  MessageBox(0, szMessage, 'Сообщение', MB_OK);

Полную документацию по функции wsprintf() можно найти в справке Delphi. Добавлю, что для корректности можно приводить передаваемые значения не к типу Pointer, а к Pinteger - для типа Integer, PUINT - для целых беззнаковых и т. д.

Использование функции wsprintf позволяет вывести значение в буфер последовательности символов и значений аргументов, не привлекая к себе ресурсов модуля sysutils.pas.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Синтаксис ::