Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.009 c
14-28244
Bboy tn
2002-11-14 23:16
2002.12.09
Запутался в корпусах


14-28204
Supra
2002-11-11 18:14
2002.12.09
Программа для определения программы


4-28365
Nomad.kz
2002-10-23 14:58
2002.12.09
определить размер файла


1-28038
Maxval
2002-11-30 11:21
2002.12.09
Как правильно вывести дату?


7-28299
AndreyAG
2002-10-07 10:51
2002.12.09
COM Port





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский