Affichage des articles dont le libellé est Lingo. Afficher tous les articles
Affichage des articles dont le libellé est Lingo. Afficher tous les articles

12 juillet 2007

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)