Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

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]

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


 
Cobalt   (2002-11-30 01:07) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2002.12.09;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.009 c
8-28136
j_onion
2002-08-23 03:00
2002.12.09
Как проверить, установлен ли конкретный кодек в системе?


4-28360
SlashSW
2002-10-28 21:59
2002.12.09
Анимированная иконка в tray


1-27965
Alfred
2002-11-29 11:09
2002.12.09
Организация задержек в микросекундах


1-28020
Checist [root]
2002-11-30 03:06
2002.12.09
Несколько элементов одного типа (ОЧЕНЬ НУЖНА ПОМОЩЬ)


1-28078
SottNick
2002-11-28 07:18
2002.12.09
Рабочий код перестал работать.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский