Паскаль: эквивалент макроса __LINE__

Delphi , Технологии , Макросы

В языках программирования часто бывает полезно знать номер строки в исходном коде, в которой находится текущая позиция выполнения программы. В языке Си для этого используется макрос __LINE__. Но что, если вам нужен эквивалент этого макроса в Паскале?

К сожалению, в стандартном Паскале нет встроенного макроса или функции, который бы возвращал номер строки. Однако, если вы используете компилятор Free Pascal, у вас есть возможность использовать конструкцию {$I %LINE%}. Этот конструкция вставляет текущий номер строки в то место, где она используется.

Давайте рассмотрим пример кода на Паскале, в котором мы хотим вывести на экран номер строки:

program LineNumberExample;
begin
  Writeln('This is line ', __LINE__); // Ошибка: неопределенный идентификатор __LINE__
end.

Как видите, попытка использовать макрос __LINE__ в Паскале приведет к ошибке. Но если мы используем компилятор Free Pascal, мы можем достичь того же результата, используя конструкцию {$I %LINE%}:

program LineNumberExample;
begin
  Writeln('This is line ', {$I %LINE%});
end.

При компиляции этого кода в точке, где находится конструкция {$I %LINE%}, будет вставлен текущий номер строки. В результате на экран будет выведено сообщение "This is line 7", если строка с Writeln находится на 7-й строке в исходном коде.

Важно отметить, что портируемость этой конструкции между различными компиляторами Паскаля может отличаться. Если вы используете другой компилятор, кроме Free Pascal, вам, возможно, придется использовать другие способы получения номера строки.

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

В языках программирования, таких как Паскаль, для получения номера строки в исходном коде, где находится текущая позиция выполнения программы, можно использовать конструкцию `{$I %LINE%}` в компиляторе Free Pascal.

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

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

:: Главная :: Макросы ::