Leer Xml

[chrids506]

Gracias, lo he resuelto con esto:

Código Delphi [-]
var
  nodoClave,
  nodoSeccion: IXMLNode;
begin
   XMLDocument1.FileName := ExtractFilePath(ParamStr(0)) + '\fincas\'+ENomb.Text+'.xml';
   XMLDocument1.Active := true;
   XMLDocument1.Version := '1.0';
   with XMLDocument1.DocumentElement do
   begin
      nodoSeccion := ChildNodes.FindNode('datos');
      with nodoSeccion do
      begin
         nodoClave := ChildNodes.FindNode('ubi');
         EUbi.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('tam');
         ETam.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('otros');
         MOtros.Lines.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('precio');
         EPrecio.Text := nodoClave.Text;
      end;
   end;
end;

Probablemente no es la mejor manera, pero trabaja bien, gracias!

[emeritos]

Hola, Con el codigo Delphi de chrids506 tambien me devuelto el contenido pero solo el primero, como puedo seguir leyendo las etiquetas sucesivas para que me devuelta las siguientes.

Pongo un ejemplo por si no me he explicado

<profesor>
<dni>99999</dni>
<nombre>aaaaaa</nombre>
</profesor>
<profesor>
<dni>88888</dni>
<nombre>bbbbbb</nombre>
</profesor>
.
.
.
.
Solo me devuelve el dni = 99999 y el nombre = aaaaa el siguiente y los sucesivos no.

Gracias