Han-Object has Record

From Vectorlab
Jump to: navigation, search


Checks if an object has a record by name. If the varible "h" is NIL the routine checks if the record format is present in the document. By Orso B. Schmid


{ Orso *********************************************** }
{ checks if h has record recName }
{ if h = NIL then checks if the record is present on doc }
FUNCTION H_HasRecord(h: HANDLE; recName: STRING): BOOLEAN;
	BEGIN
		IF h = NIL THEN
			H_HasRecord := (GetObject(recName) <> NIL)
		ELSE
			H_HasRecord := (Eval(h, (R IN [recName])) > 0);
	END;