Han-Get Last Object by criteria

From Vectorlab
Jump to: navigation, search


Returns the last object according to a criteria string. By Orso B. Schmid


{ Orso **************************************** }
{ gets last obj according to criteria }
FUNCTION H_GetCriteriaLastObj(criteria: STRING): HANDLE;
	VAR
		temp_h : HANDLE;
	
	PROCEDURE LastCriteriaObj(h : HANDLE);
		BEGIN
			temp_h := h;
		END;
	
	BEGIN
		temp_h := NIL;
		ForEachObject(LastCriteriaObj, criteria);
		H_GetCriteriaLastObj := temp_h;
	END;