Проверка на повторы по нодам

← →
timekiller © (2007-11-16 15:05) [0]

Help

вот код
if Assigned(vNode.SelectSingleNode("//group")) then
begin
povtor:=0;
for i:=0 to vNode.selectNodes("//group").length-1 do
for j:=0 to vNode.selectNodes("//group").length-1 do
if (vNode.selectNodes("//group").item[j].attributes.getNamedItem("name").nodeValue=vNode.selectNodes("//group").item[i].attributes.getNamedItem("name").nodeValue) and (povtor=0) then
povtor:=povtor+1;

if povtor>1 then
MessageDlg("Атрибут повторяется", mtError, [mbOk], 0);
end;

вот тотже код по русски
if Assigned(vNode.SelectSingleNode("//group")) then
begin
повтор:=0;
идем по всей длине group по i
begin
идем по всей длине group для j
если в.ноде.атрибут j равен атрибуту.в.ноде i то прибавить к повтору 1
end;
если повтор больше 1 то MessageDlg("повторяется", mtError, [mbOk], 0);
end;

Что не так пишу?? не контачит

← →
timekiller © (2007-11-16 15:06) [1]

тфу ё ... удалите ктонить, поспешил !! and (povtor=0)

Проверка на повторы по нодам Найти похожие ветки