Pasar de tabla a XML (ASCII)

[cisterpe]

Bien tengo que construir un XML a partir de una TABLA

He visto esto en el foro...

var
Lineas: TStringList;
Linea: String;

begin
Lineas := TStringList.Create;

while not Table.Eof do
begin
Linea := '';
for I := 0 to Table.Fields.Count - 1 do
if Linea = ''
then Linea := Table.Fields[i].AsString
else Linea := Linea + ',' + Table.Fields[i].AsString;

Lineas.Add(Linea);
Table.Next;
end;

Lineas.SaveToFile('tuarchivo.txt');
Lineas.Free;
end;

La finalidad es..

//Tabla
C1----->C2----->C3----->C4
A----->null----> null---->null
null---->B------->C------>null
null---->null---->null----->D
//
y el xml debe ser

<xml>
<1>
---><C1>
----->A
---></C1>
</1>
<2>
---><3>
-----><C4>
------->D
-----></C4>
---></3>
---><C2>
----->B
---></C2>
----><C3>
----->C
---></C3>
</2>
</xml>
No se como adaptarlo

[[__hector]]

No se si te sirve, pero puedes utilizar un ADODataSet (o ADOTable/Query, no importa, cualquier fuente de datos), que tiene en su metodo SavetoFile, la opcion de exportar el dataset a un archivo XML.

[cisterpe]

Gracias lo mirare

[Delfino]

Tambien el ClientDataSet permite guardar cualquier tabla en formato xml mediante el metodo SaveToFile, ademas tiene la propiedad XMLData..

[cisterpe]

Lo he hecho de la forma que puse al principio ya que la informacion no esta preparada para insertar directamente en el xml y tenia que hacer unas comparaciones.

Muchas gracias a todos