var
xd: IXMLDocument;
nl: IXMLNodeList;
I: Integer;
begin
xd := LoadXMLData(
'<?xml version="1.0"?>'+
'<
gpx version="1.0" creator="
http://www.gnuite.com/cgi-bin/gpx.cgi"
xmlns="
http://www.topografix.com/GPX/1/0">'+
' <trk>'+
' <trkseg>'+
' <trkpt lat="45.5238" lon="-122.67501">'+
' <desc>Head east from Northwest Couch Street. Go 0.2
miles.</desc></trkpt>'+
' <trkpt lat="45.52382" lon="-122.67441"/>'+
' <trkpt lat="45.52383" lon="-122.67339"/>'+
' </trkseg>'+
' </trk>'+
'</
gpx>'
);
nl :=
xd.ChildNodes['gpx'].ChildNodes['trk'].ChildNodes['trkseg'].ChildNodes;
for I := 0 to nl.Count - 1 do
begin
Memo1.Lines.Add(nl[I].Attributes['lat']);
Memo1.Lines.Add(nl[I].Attributes['lon']);
end;
end;