Foros Club Delphi - Pasar de tabla a XML (ASCII)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Pasar de tabla a XML (ASCII) (https://www.clubdelphi.com/foros/showthread.php?t=6299)

Pasar de tabla a XML (ASCII)

Bien tengo que construir un XML a partir de una TABLA

He visto esto en el foro...

Cita:

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 :o

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.

Gracias lo mirare ;)

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

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 ;)