Topic: Выгрузка данных в XML

Добрый день!
Помогите пожалуйста с решением проблемы: нужно данные (как вариант грид) выгрузить в xml.
Структура xml простая:

<Chapters>
   <Chapter Caption="@@" type="##" number="№">
        <Chapter Caption="@@" type="##" number="№"> - возможны вложения неограниченное количество раз
            <Row caption="@@" TZ="#" TZM="%" />
       </Chapter>
   </Chapter>
</Chapters>

Re: Выгрузка данных в XML

Приветствую.


Пример, как создавать XML файл

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    XMLDoc: TfsXMLDocument;
    XMLItem1, XMLItem2, XMLItem3: TfsXMLItem;
begin
    XMLDoc := TfsXMLDocument.Create;

    try
        XMLDoc.Root.Name := 'root';
        XMLDoc.Root.Text := 'attrib="rootvalue"';
    
        XMLItem1 := XMLDoc.Root.Add;
        XMLItem1.Name := 'first';
        XMLItem1.Text := 'attrib="firstvalue"';
    
        XMLItem2 := XMLDoc.Root.Add;
        XMLItem2.Name := 'second';
    
        XMLItem3 := XMLItem2.Add;
        XMLItem3.Name := 'child';
        XMLItem3.Text := 'attrib="somevalue"';
    
        XMLDoc.SaveToFile(ExtractFilePath(Application.ExeName) + 'test.xml');

    finally
        XMLDoc.Free;
    end;
end;

результатом будет файл

<?xml version="1.0"?>
<root attrib="rootvalue">
   <first attrib="firstvalue"/>
   <second>
      <child attrib="somevalue"/>
   </second>
</root>

Далее просто в цикле перебирайте данные из грида, либо создайте датасет с помощью SQL запроса и перебирайте его в цикле.

Dmitry.

Re: Выгрузка данных в XML

Подскажите, а как вызвать диалоговое окно для выбора куда сохранить...