Exports...

← →
First_May © (2002-11-29 09:26) [0]

Привет всем! Я делаю функцию следующим образом:

procedure ListFactorys(PForm: TFormFounder; cod: integer);
begin
FormFactorys:=TFormFactorys.Create(Application);
with FormFactorys do
begin
ParentForm:=PForm;
Show;
end;
end; exports ListFactorys;

Вопрос такой, можно ли в событии OnCreate узнать имя функции, которая ее создала, то есть ListFactorys?

← →
First_May © (2002-11-29 12:31) [1]

Кто нибудь может мне помочь в этом вопросе?

← →
Skier © (2002-11-29 12:33) [2]

>First_May
А зачем ? Что хочешь сделать ?

← →
First_May © (2002-11-29 16:35) [3]

Просто таких функций у меня очень много и я хотел бы знать, какая функция сделала ту или иную форму...

Нельзя, т.к. у функций отсутствует RTTI (кстати, было бы любопытно посмотреть на "пример реализации" такового).
А вообще попробуй ввести глобальную переменную, и при входе в ф-ию записывай туда имя ф-ии, в которую ты вошел.
Подозреваю, что это для отладки?

Exports... Найти похожие ветки