var
XMLDoc: TXMLDocument;
Node, Node1: IXMLNode;
begin
XMLDoc := TXMLDocument.Create(Application);
XMLDoc.Active := True;
XMLDoc.Encoding := 'utf-8';
Node := XMLDoc.AddChild('HEAD');
Node1 := Node.AddChild('Version');
....
XMLDoc.SaveToFile(FileName);
XMLDoc.Free;
end;
Работа с XML
Доброго времени суток!
Вопрос в следующем. Создаю XML-файл:
Код:
Так вот при открытии полученного файла например, IExplorer'ом все отлично отображается. При открытии файла Блокнотом все данные записаны в СТРОКУ, т.е. нет переноса по тегам и смотреть такой файл невозможно.
Подскажите, плиз, может как-то можно вставить перенос на следующую строку после каждого тега, чтобы получить удобочитаемый в Блокноте файл?
Заранее спасибо!
Вопрос в следующем. Создаю XML-файл:
Код:
Код:
Так вот при открытии полученного файла например, IExplorer'ом все отлично отображается. При открытии файла Блокнотом все данные записаны в СТРОКУ, т.е. нет переноса по тегам и смотреть такой файл невозможно.
Подскажите, плиз, может как-то можно вставить перенос на следующую строку после каждого тега, чтобы получить удобочитаемый в Блокноте файл?
Заранее спасибо!
Вроде так:
Код:
XMLDoc.Options:=XMLDoc.Options + [doNodeAutoIndent];
Макбет, спасибо большое!!! :-)