Главная страница
    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.008 c
6-28165
Alex_win
2002-10-11 16:54
2002.12.09
перехват почты


6-28159
Геннадий
2002-10-13 13:58
2002.12.09
А можно ли открыть файл с FTP как простой локальный?


1-27938
Ferrarium
2002-11-29 10:36
2002.12.09
Работа с файлами


14-28256
Manic Mechanic
2002-11-15 18:12
2002.12.09
За здоровый образ жизни !!!


1-27963
Azerg
2002-11-29 13:50
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский