Han-Get Object type as integer

From Vectorlab
Jump to: navigation, search


Gets the object type of an object as integer, distinguishing among subtypes. By Orso B. Schmid


{ Orso *********************************************** }
{ returns the type or subtype of an object as integer }
FUNCTION H_SubType(h : HANDLE): INTEGER;
	BEGIN
		H_SubType := Str2Num(EvalStr(h, (IF(((ST)=-1), (T), (ST)))));
	END;