можно как-нибудь получить стринговое имя выполняющегося метода?

← →
nasty © (2004-08-18 18:31) [0]

или нет?

← →
Юрий Зотов © (2004-08-18 18:45) [1]

Посмотрите Assert

← →
Юрий Зотов © (2004-08-18 18:46) [2]

Забыл уточнить. Имя метода Assert не даст, а вот имя модуля и номер строки в нем - даст.

← →
Rem (2004-08-18 18:46) [3]

TMyClass = class(TObject)
private
m_sRunningMethodName: string;
....
procedure Method1;
procedure Method2;
....
public
property RunningMethodName: string read m_sRunningMethodName;
end;

....

procedure TMyClass.Method1;
begin
m_sRunningMethodName := "TMyClass.Method1";
try
....
finally
m_sRunningMethodName := "";
end;
end;

procedure TMyClass.Method2;
begin
m_sRunningMethodName := "TMyClass.Method2";
try
....
finally
m_sRunningMethodName := "";
end;
end;

← →
Rem (2004-08-18 18:48) [4]

Забыл добавить :)
Но, по моему, это единственная возможность. (Уже без :))

Стринговое имя выполняющегося метода ты и так знаешь.
Видимо речь идет о стринговом имени метода, откуда был вызван текущий метод ?
И далее по стеку

В принципе, возможно, но очень сложно

Посмотрите Dеbug в JCL.
http://homepages.borland.com/jedi/jcl/

можно как-нибудь получить стринговое имя выполняющегося метода? Найти похожие ветки