Ну тогда еще задачка:

← →
Алексей Петров (2002-02-07 10:20) [24]

Немного комментариев к unit Assertions - здесь большая часть просто скопированна из SysUtils.pas.
После подключения такого модуля к проекту можно из AssertionFailure вытаскивать имя модуля и № строки как свойства.

С таким модулем функция для решения задачи №1 выглядит так:

function GetUnitName : string;
begin
Result := "";
{$IFOPT C-}
{$C+}
{$DEFINE C_ACTIVATED}
{$ENDIF C-}
try
Assert(False);
except
on E: EAssertionWithDetail do
Result := E.UnitName
end;
{$IFDEF C_ACTIVATED}
{$UNDEF C_ACTIVATED}
{$C-}
{$ENDIF}
end;

Ну тогда еще задачка: Найти похожие ветки