Скачать: CL | DM;

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

← →
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)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c