XML не выгружать пустые аттрибут

[BARNEY]

есть код

var
 XMLDoc: DomDocument;
  root: IXMLDOMElement; // гланый тег
  Node: IXMLDOMElement;
  attr  : IXMLDOMAttribute;

begin
XMLDoc:=CreateComObject(CLASS_DOMDocument) as IXMLDOMDocument2;
    XMLDoc.async:=false;
    XMLDoc.loadXML('<?xml version="1.0" encoding="windows-1251" ?><ZL_LIST/>'); // Если я не правильно кодировку устанавливаю поправьте меня
    root:=XMLDoc.documentElement;
    Node := XMLDoc.createElement('ZGLV');
    Node.setAttribute('VERSION','Привет тебе мир');
    Node.setAttribute('V','');
    root.appendChild(node);
    XMLDoc.save('D:/temp/test.xml');
end

Вопрос как сказать ему чтоб не выгружать пустые атрибуты.
в XMLDoc: IXMLDocument; просто в options ставим doattrnull=false

[Аватар]

А просто так не пойдет

if s<>'' then Node.setAttribute('V',s);

[BARNEY]

больше сотни полей... не очень хочется огород городить.
Вот и решил спросить

[Аватар]

Можно сделать небольшую процедуру и к ней обращаться. Анализ только в процедуре

[BARNEY]

Спасибо...если не кто не чего больше не предложит, то так и буду... делать.
p.s. Весы тыкнуть не могу , говорят уже говорил.