Donc pour sélectionner un nœud, il faut prendre en compte les exceptions:
var
tci TCursor
i, len, errcount LongInt
oNode OleAuto
s, des String
oDes OleAuto
endVar
[...]
len = nl.length
lbStatus.Value = "Le feed contient " + String(len) + " items." ; lbStatus est un contrôle Texte
pb.setRangeAndStep (0, len - 1, 1) ; pb est un contrôle ProgressBar
s = ""
tci.attach (TITEM) ; TITEM est un TableFrame
tci.edit ()
for i from 0 to len - 1
pb.pos = i
errcount = 0
onode = nl^item (i)
tci.insertBeforeRecord ()
try
odes = onode^selectSingleNode ("description")
des = odes^Text
onfail
des = "(article sans description)"
errcount = 1
endtry
tci.DETITEM = des
[...]