Available in:
Apps (win)
Apps (char)
Reportwriter
RPC
Standalone PL
X
X
X
X
X
int list_refcnt(list-name) list list-name
#trigger list_check { int i; list_seek(parm.0,0); while (true) { for (i=0;i<list_cols(parm.0);i++) { if (datatype(list_curr(parm.0,i)) == "L") { if (list_curr(parm.0,i) != NULL && list_refcnt(list_curr(parm.0,i)) > 1) prompt("List: "^^parm.1^^", row: "^^list_pos(parm.0)^^ "col: "^^i^^", the list item has refcnt > 1"); list_check(list_curr(parm.0,i),list_pos(parm.0)^^":"^^i); } } if (list_pos(parm.0) == list_next(parm.0)) break; } }