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!