Упрощение логгирования в Delphi: вывод имени вызывающей функции для отслеживания ошибок

Delphi , Программа и Интерфейс , Исследование программ

Логгирование в программировании - важный инструмент для отслеживания ошибок и аналитики работы приложения. В среде разработки Delphi, особенно при работе с большими проектами, эффективность и удобство логгирования играют ключевую роль. В данной статье мы рассмотрим, как можно упростить процесс логгирования, выводит имя вызывающей функции, что позволит более точно диагностировать проблемы в коде.

Проблема

Разработчик столкнулся с необходимостью упрощения команды логгирования, чтобы облегчить её интеграцию в существующие проекты. В текущем виде команда для логирования выглядит следующим образом:

logger.Fatal(CurrentFunctionName+' Grid beschriften:');

И пример вывода лога:

2013 10 18 15.33.17.383 [FATAL] # [01290458] UTestMain.TFormMainTest.TitelGridRows (Line 229, "UPTestMain.pas") # Actual Log Message

Разработчик попытался разместить метод определения текущей функции напрямую в модуле логирования, но это позволило получить информацию только о методах внутри этого модуля. Идея заключалась в том, чтобы использовать следующий код:

procedure TLogger.Fatal(const AMsg : String);
begin
   log(TLevelUnit.FATAL,  PreviousFunctionName + AMsg);
end;

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

Решение

Для получения имени вызывающей функции вместо текущей, необходимо использовать функцию Caller, передав в неё параметр 2 вместо 1. Это позволит пройти на один уровень выше в стеке вызовов и получить имя предыдущей функции.

Пример кода

procedure TLogger.Fatal(const AMsg : String);
var
  CallerInfo: string;
begin
  CallerInfo := GetCallerInfo(2); // Получаем информацию о вызывающей функции
  log(TLevelUnit.FATAL, CallerInfo + AMsg);
end;

function GetCallerInfo(const Level: Integer): string;
var
  LocationInfo: TLocationInfo;
begin
  Result := '';
  if jcldebug.GetLocationInfo(LocationInfo, Level) then
    Result := LocationInfo.Name;
end;

В данном примере, функция GetCallerInfo использует библиотеку JCL Debug для получения информации о вызывающей функции на уровне Level, который в данном случае равен 2.

Важные замечания

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

Заключение

Используя предложенный подход, можно значительно упростить процесс логирования в Delphi, выводить имя вызывающей функции и тем самым повысить эффективность отладки и анализа ошибок в проектах на Pascal.

Создано по материалам из источника по ссылке.

Упрощение логгирования в Delphi заключается в выводе имени вызывающей функции для более эффективного отслеживания ошибок.

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

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

:: Главная :: Исследование программ ::