Имя процедуры

← →
dm37 (2004-03-18 06:13) [0]

Как получить имя процедуры которая в данный момент выполняется:
procedure test;
begin
ShowMessage(имя_процедуры);
end;

← →
Defunct © (2004-03-18 07:25) [1]

Вы ж уже внутри процедуры, кто мешает вывести ее название?

procedure test; begin ShowMessage("test"); end;

> dm37 (18.03.04 06:13)

Нет, как-т оопределить это невозможно.
Теоретически - используя информацию для отладчика, но это ее еще разгрести надо....