Создание в Delphi 2010 xml файла нужного формата

[Maxjuvefan]

Ребят, столкнулся с такой проблемой - как создать в Delphi 2010 xml файл, чтобы был один корневой тег, в котором есть несколько переменных? Значения переменных будут браться из БД на SQL.

Нужно, чтобы xml файл выглядел таким образом:

<?xml version="1.0" encoding="utf-16"?>
<AssignmentQR text00_Вид="Документ" text01_Начальник="Начальник отдела ИТ" text02_фио="Иванов А.В." />

Именно такой формат нужен, чтобы созданные xml файлы открывались через другую программу и обрабатывались там.

Пробую сделать через AddChild, но оно создает много тегов, а нужно, чтобы все было в одном.

procedure TForm1.Button1Click(Sender: TObject);
var
  Xml: IXMLDocument;
begin
  // создаем
  Xml := TXMLDocument.Create (nil);
  Xml.Active := true;
// создаем
  with Xml do
    begin
      // создаем корневой узел
      with AddChild ('AssignmentQR') do
        begin
       // дочерние элементы
            ChildValues ['text02_фио'] := '=" Иванов  А.В."';
            ChildValues ['text01_Начальник'] := '="Начальник отдела ИТ"';
            ChildValues ['text00_Вид'] := '="Документ"';
        end;  // with
    end;  // with: создаем
Xml.SaveToFile ('D:\44.xml');
end;

Пробую сделать через Add, возникает проблема длины строки, нужная строка больше 255 символов (textN много). Файл получается, но через браузер не отрывается.

procedure TForm1.Button1Click(Sender: TObject);
var
  Xml: TStringList;
begin
   // создаем объект
   Xml := TStringList. Create;
   // формируем документ
   Xml. Add ('<?xml version="1.0" encoding="UTF-16"?>');
   Xml. Add ('< AssignmentQR text00_Вид="Документ" text01_Начальник="Начальник отдела ИТ" text02_фио="Иванов А.В."/>');
   // записываем
   Xml. SaveToFile ('D:\333333.xml');
   // освобождаем память
   FreeAndNil (Xml);
end;

Помогите, кто чем может.

[Аватар]

Это атрибуты. См. Attributes. Уверен, что кириллические названия прокатят?

[winnt32]

Здравствуйте!
Подскажите как при работе с xml делать так, чтобы новый элемент добавлялся с новой строки, а не в одну строчку. Например чтобы файл формировался так:
<Person>
<id></id>
<Family></Family>
<Name></Name>
</Person>
А не так:
<Person><id></id><Family></Family><Name></Name></Person>

[winnt32]

Использую функцию
function SaveNews(Family,Name,:string; id:integer) : Boolean;
var i : integer;
Node,ValNode : IXMLNode;
F:textFile;
begin
result:=true;
XMLDoc.Active:=true;
for i := 0 to XMLDoc.DocumentElement.ChildNodes.C ount - 1 do begin
Node := XMLDoc.DocumentElement.ChildNodes[i];
if StrToInt(Node.ChildNodes['id'].Text)=id then begin
Result:=false;
Exit;
end;
end;

Node:=XMLDoc.DocumentElement.AddChi ld('Person');
Node.Attributes['birthday']:=DateToStr(birthday);
ValNode:=Node.AddChild('id');
ValNode.Text:=IntToStr(id);
ValNode:=Node.AddChild('Family');
ValNode.Text:=Family;
ValNode:=Node.AddChild('Name');
ValNode.Text:=Name;
XMLDoc.SaveToFile(XMLDoc.FileName);
end;

[come-on]

Какая разница? xml-ю все равно как
Да и смотря чем смотреть файл

[winnt32]

Просто для удобства. Все итак в принципе работает как надо, но когда открываешь все без прорамы глаз режет

[come-on]

открывайте в браузере, не будет резать

[winnt32]

Еслиу кого-нибудь есть варианты, я бы все таки посмотрел! Заранее спасибо.

[phomm]

http://docwiki.embarcadero.com/CodeE...r_%28Delphi%29

[winnt32]

Спасибо! Всего лишь то одну опцию нужно подправить!
XMLDoc.Options := XMLDoc.Options + [doNodeAutoIndent];