Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / RunTimeTypeInformation (C++ RTTI) в VFP / 8 сообщений из 8, страница 1 из 1
04.02.2004, 15:31
    #32398179
funikovyuri
funikovyuri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
Как проще всего реализовать такие операции на фоксе

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
LOCAL lObject

lObject = createobject('my_object')

wait typeid(lObject).name() window

if dynamic_cast<'my_object_parent'>(lObject)
   wait 'да - lObject - это потомок my_object_parent' window
else
   wait 'нет - не потомок' window
endif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2004, 15:46
    #32398209
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
Фокс ведь не типизированный язык...
Информацию о наследовании можно получить через aclass() - возвращает массив с именами классов
Найти нужный элемент в массиве ascan()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2004, 15:48
    #32398214
Por
Por
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
У каждого объекта есть свойства Class и BaseClass, так что:

Код: plaintext
1.
2.
3.
4.
LOCAL lObject
lObject = createobject('my_object')

wait window lObject.Сlass timeout  1 
wait window lObject.Сlass + ' это потомок ' + lObject.BaseСlass
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2004, 15:53
    #32398227
Por
Por
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
поправочка.

BaseClass содержит инфу о базовых классах фокса, так что если родителей больше 1, то вариант Crip`а лутче.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2004, 15:53
    #32398229
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
2Por
Есть еще и ParentClass,но классы могут иметь глубокую вложенность.
У меня допустим бывают классы 5-6 уровней...
Пример: Форма-Базовая Форма-Форма справочника-Форма иерархического справочника - Форма иерархического справочника контрагентов - Форма иерархического справочника контрагентов для группового ввода данных.
Полную информацию можно получить только через ACLASS()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2004, 15:59
    #32398240
Por
Por
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
2 Crip

Всю голову уже пеплом засыпал.... Виноват, кто спорит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2004, 16:02
    #32398243
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
Не расстраивайся, у тебя еще все получится
Кстати инфу о свойствах Class,BaseClass,ParentClass нужно было тоже донести :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2004, 17:00
    #32398360
funikovyuri
funikovyuri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RunTimeTypeInformation (C++ RTTI) в VFP
спасибо - буду копать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / RunTimeTypeInformation (C++ RTTI) в VFP / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]