1{ 2 Contains the non-external functions for MySQL v4.0 3} 4 5function IS_PRI_KEY(n : longint) : Boolean; 6begin 7 IS_PRI_KEY:=(n and PRI_KEY_FLAG)<>0; 8end; 9 10 11function IS_NOT_NULL(n : longint) : Boolean; 12begin 13 IS_NOT_NULL:=(n and NOT_NULL_FLAG)<>0; 14end; 15 16 17function IS_BLOB(n : longint) : Boolean; 18begin 19 IS_BLOB:=(n and BLOB_FLAG)<>0; 20end; 21 22// This function is not used?!?! 23{function IS_NUM_FIELD(f : Pst_mysql_field) : Boolean; 24begin 25 IS_NUM_FIELD:=((f^.flags) and NUM_FLAG)<>0; 26end;} 27 28 29function MYSQL_COUNT_ERROR : longint; 30begin 31 MYSQL_COUNT_ERROR:= not ({my_ulonglong}(0)); 32end; 33 34 35function mysql_reload(mysql : pmysql) : longint; 36begin 37 mysql_reload:=mysql_refresh(mysql,REFRESH_GRANT); 38end; 39