Приветствую.
Пример, как создавать 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.