Здравствуйте. Решил в своей программе использовать XML файл, для хранения настроек, все вроде бы хорошо, но в коде
Код:
if (form1.XMLDocument1.Active) then
begin
form1.ListBoxRange.Clear;
form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].AddChild('Range');
i:=form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].ChildNodes.Count;
form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].ChildNodes[i-1].Attributes['name']:=edit1.Text;
form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].ChildNodes[i-1].Attributes['fgColor']:=inttostr(ColorEdit9.Selected);
form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].ChildNodes[i-1].Attributes['bgColor']:=inttostr(ColorEdit10.Selected);
form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].ChildNodes[i-1].Attributes['fontStyle']:=Form1.StyleBol(CheckBold5.checked,CheckItalic5.checked,CheckUnderline5.checked,CheckStrikeOut5.checked);
form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].ChildNodes[i-1].Attributes['begin']:=RangeFrom.Text;
form1.XMLDocument1.ChildNodes['Writer'].ChildNodes['Ranges'].ChildNodes[i-1].Attributes['end']:=RangeTo.Text;
при doNodeAutoIndent=true появляется ошибка
---------------------------
Debugger Exception Notification
---------------------------
Project XMLParser.exe raised exception class EXMLDocError with message 'Attributes are not supported on this node type'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
если doNodeAutoIndent=false то все нормально, но в этом случае код XML файла записывается в одну строку, очень не удобно читать. В чем проблема?