Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.09;
Скачать: 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 вся ветка

Текущий архив: 2007.12.09;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
3-1185587116
wsv
2007-07-28 05:45
2007.12.09
Написать запрос


11-1180182392
VPBar
2007-05-26 16:26
2007.12.09
Ошибка TStrListEx.DeleteLast ??


2-1194859600
webpauk
2007-11-12 12:26
2007.12.09
Копирование записей


15-1194788752
Blind Guardian
2007-11-11 16:45
2007.12.09
векторное произведение векторов с произвольной размерностью


11-1180584972
Ned
2007-05-31 08:16
2007.12.09
Как узнать версию Windows?