Loop All Facts for an Individual (code snippet)

Iterates all Facts for an Individual. Takes a pointer as a parameter.

Requires: None

LoopAllFacts.fh_lua

function facts(pi)
    local pf = fhNewItemPtr()
    local pf2 = fhNewItemPtr()
    pf:MoveToFirstChildItem(pi)
    return function ()
        while  pf:IsNotNull() do
            pf2:MoveTo(pf)
            pf:MoveNext()
            if fhIsFact(pf2) then return pf2 end
        end
    end
end

i = 0
pi = fhNewItemPtr()
pi:MoveToFirstRecord('INDI') -- Move to first individual record
 
for px in facts(pi) do
    print (fhGetDisplayText(px))
    i = i + 1
end
print(i)

List of pages which refer to this one