Han-Record is User Format

From Vectorlab
Jump to: navigation, search


Checks if a record is user format, accepting a string. By Orso B. Schmid


{ Orso *********************************************** }
{ is it a user record? accepts a name instead of a Handle }
FUNCTION H_RecIsUserFormat(recN: STRING): BOOLEAN;
	VAR
		recH : HANDLE;
	BEGIN
		H_RecIsUserFormat := FALSE;
		recH := GetObject(recN);
		IF recH <> NIL THEN
			H_RecIsUserFormat := (GetObjectVariableBoolean(recH, 900) = TRUE) & (IsPluginFormat(recH) = FALSE);
	END;