Например:
Code: Select all
{$DEFINE TEST}
. . . . . . . . . . . . . .
{$IFDEF TEST}
case FoundedParamID of
0: AddToSystemJournal('Приручили: $' + IntToHex(Target, 8));
1: AddToSystemJournal('Уже кем то приручена: $' + IntToHex(Target, 8));
2: AddToSystemJournal('Слишком далеко: $' + IntToHex(Target, 8) + ', расстояние: ' + IntToStr(GetDistance(Target)));
3: AddToSystemJournal('Вне зоны видимости: $' + IntToHex(Target, 8));
4: AddToSystemJournal('Ошибка таргета: $' + IntToHex(Target, 8));
end;
{$ENDIF}
. . . . . . . . . . . . . .