[markII]

Сообщение от lmikle

Можно проще. Просто проверяй на изменене значения в поле Dep и только в этом случае создавай новый узел.

Как-то так:

Код:

  DepName := '';
  DepNode := Nil;
  addroot := XmlDoc.AddChild('City');
  while Not ADOQ.Eof do
    begin
	  if DepName <> ADOQ.FieldByName('Dep').AsString Then
	    begin
          DepNode := root.AddChild('Dep');
          DepNode.SetAttribute(WideString('NameDep'), ADOQ.FieldByName('Dep').AsString);
          DepName := ADOQ.FieldByName('Dep').AsString;
		end;  
      

Спасибо! Все получилось, правда не сразу). Не хватало еще сортировки по id_dep.