Проверка на повторы по нодам
timekiller © (2007-11-16 15:05:00)
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:00) [1]
тфу ё ... удалите ктонить, поспешил !! and
(povtor=0)
Наверх 
ЧАТ |
Орешник |
|
