Форум: "Потрепаться";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Вниз
можно как-нибудь получить стринговое имя выполняющегося метода? Найти похожие ветки
← →
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]Забыл добавить :)
Но, по моему, это единственная возможность. (Уже без :))
← →
Гаврила © (2004-08-18 19:01) [5]Стринговое имя выполняющегося метода ты и так знаешь.
Видимо речь идет о стринговом имени метода, откуда был вызван текущий метод ?
И далее по стеку
В принципе, возможно, но очень сложно
← →
Alex Konshin © (2004-08-18 19:11) [6]Посмотрите Dеbug в JCL.
http://homepages.borland.com/jedi/jcl/
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.029 c
