06 juillet 2007

Antisèche liste Lingo

on test

pInfo = [#FacteursRisque:[""]]

--listObjRef.setaProp(property, value)

pInfo.setaProp(#FacteursRisque, "test")

--listObjRef.getPropAt(intPos)

pInfo.setaProp(#FacteursRisque, pInfo.getProp(#FacteursRisque) && "- test 2")

pInfo.setaProp(#FacteursRisque, pInfo.getProp(#FacteursRisque) && "- test 3")

trace pInfo

pInfo = [#FacteursRisque:[""]]

-- trace pInfo

--

vList = pInfo.getaProp(#FacteursRisque)

the itemdelimiter = "-"

vMax = vList.items.count

repeat with x = 1 to vMax

vline = vList.item[x]

trace vline

end repeat

global gObjetHta

vList = gObjetHta.pInfo.getaProp(#FacteursRisque)

if vList <> "" then

the itemdelimiter = "-"

vMax = vList.items.count

repeat with x = 1 to vMax

vline = vList.item[x]

trace vline

end repeat

end if

end

...et récupération de l'objet : vText = gObjetHta.pInfo.getaProp(#Prevention)

Aucun commentaire: