MVP Logo

Материализуя идеи

Не поднимешься в горы — не узнаешь высоты неба; не спустишься в бездну — не узнаешь толщи земли.

Я подчеркиваю, для XE4, т.к. экосистема Эмбаркадеро постоянно изменяется и растет.

// InheritsFrom does not work properly in C++ Builder (as many other Delphi RTTI stuff)
bool isInheritedFrom(TRttiInstanceType* t1, TRttiInstanceType* t2)
{
	if( t1 && t2 )
	{
		while( t1 )
		{
			if( t1 == t2 )
				return true;

			t1 = t1->BaseType;
		}
	}

	return false;
}

Яндекс.Метрика

Сейчас на сайте 90 гостей и нет пользователей

07.08.2020  ©2020 - ExactSoft - All rights reserved