Формат команды:

{$MESSAGE HINT|WARN|ERROR|FATAL 'text string' }

 

Например, добавление следующих строк приведёт  к появлению:

 

Code:

{$MESSAGE 'Появился новый hint!'}

{$MESSAGE Hint 'И это тоже hint!'}

{$MESSAGE Warn 'А это уже Warning'}

{$MESSAGE Error 'Эта строка вызовет ошибку компиляции!'}

{$MESSAGE Fatal 'А это фатальная ошибка компиляции!'}

 

 

 

Пример:

 

Code:

destructor TumbSelectionTempTable.Destroy;

begin

// Clear the temp tables.

{$MESSAGE Warn ' - remember to free all allocated objects'}

ClearAllOuterWorldFold;

if FSubjectsTempTableCreated then

   DropTempTable(FTableName);

 

FOuterWorldsFolded.Free;

FQuery.Free;

inherited;

end;

 

 

Работает только в Дельфи 6/7

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!