Парсинг одинаковых тегов из хмл

[Crossfire]

Прикрутил парс хмл тегов, если теги одинаковые соответственно он парсить только первый тег.
Как парсить все одинаковые теги?

XMLDocument2.LoadFromFile('http://steamcommunity.com/profiles/'+XMLDocument1.DocumentElement.ChildNodes['members'].ChildNodes['steamID64'].Text+'/?xml=1');

Тобиш мне нужно спарсить все теги <steamid64>

[IvaniuS]

это что ты там от стима парсить собрался?

[Crossfire]

Сообщение от IvaniuS

это что ты там от стима парсить собрался?

Парсю ники, хмл с которого беру их, самим стимом в открытом доступе предоставлены.
Мошенничества никакого

[Пепел Феникса]

я думаю вам не парсить надо, а работать методами XMLDocument.

[Crossfire]

Сообщение от Пепел Феникса

я думаю вам не парсить надо, а работать методами XMLDocument.

Пытаюсь работать с nextSibling, ставлю условие

smemo1.text:=w ;
if XMLdocument2.DocumentElement.childnodes['members'].childnodes['steamid64'].nextsibling['steamid64'] then
XMLDocument2.LoadFromFile('http://steamcommunity.com/profiles/'+XMLDocument1.DocumentElement.ChildNodes['members'].ChildNodes['steamID64'].Text+'/?xml=1');
w:=XMLdocument2.DocumentElement.childnodes['members'].childnodes['steamid64'].text     ;
w:= XMLDocument2.DocumentElement.ChildNodes['steamID'].Text;

Он меня в условие тыкает уже после компиля при нажатии на баттон.
Вы только сильно не смейтесь, я все пытаюсь все четко по книгам и статьям делать

[Slym]

xpath читаем
и будет
ids:=XML.selectNodes('members/steamid64');
for i:=1 to ids.length do
ids.item(1).text

[D-mon]

Вот код с моего проекта, без использования компонента TXMLdocument.
А по поводу классов IXMLDOM* погуглите, смотря какую версию Делфы используете.
Я работаю с ХЕ3, там просто подключить модуль Winapi.msxml.

procedure TvdVisualFilter.BuildFilter(aXML: string);
var XMLDoc: IXMLDOMDocument;
    XMLError: IXMLDOMParseError;
    Root: IXMLDOMElement;
    Attr: IXMLDOMNode;
    i, j: Integer;
    vPage: TvdPage;
    vCF: TvdCustomFilter;
begin
  if Length(FPages) > 0 then
    for i := Low(FPages) to High(FPages) do
    begin
      TTabSheet(FPages[i].Parent).PageControl := nil;
      FreeAndNil(FPages[i]);
    end;
  SetLength(FPages, 0);

  XMLDoc := CoDOMDocument.Create;
  try
    XMLDoc.Async := False;
    XMLDoc.loadXML(aXML);
    XMLError := XMLDoc.ParseError;
    if XMLError.errorCode = 0 then
    begin
      Root := XMLDoc.DocumentElement;

      Attr := Root.attributes.getNamedItem('WherePosition');
      FWherePosition := '~Where~';
      if Attr <> nil then
        FWherePosition := Attr.nodeValue;

      with Root.ChildNodes do
        for i := 0 to Length - 1 do
        begin
          vPage := AddPage;
          // Название
          Attr := item[i].attributes.getNamedItem('Caption');
          if Attr <> nil then
            vPage.Caption := Attr.nodeValue
          else
            vPage.Caption := 'Сторінка' + IntToStr(i);
          // Длина лабелов
          Attr := item[i].attributes.getNamedItem('LabelsWidth');
          if Attr <> nil then
            vPage.LabelsWidth := StrToIntDef(Attr.nodeValue, 200)
          else
            vPage.LabelsWidth := 200;

          with item[i].childNodes do
            for j := 0 to length - 1 do
            begin
              vCF := CreateFilter(vPage, item[j]);
              if vCF <> nil then
              begin
                vCF.CaptionWidth := vPage.LabelsWidth;
                vCF.Parent := vPage;
                vPage.AddFilter(vCF);
              end;
            end;
        end;
    end;
  finally
    Root := nil;
    XMLError := nil;
    XMLDoc := nil;
  end;
end;

[Tip.the.besT]

var
list:tstringlist;
s:string;//здесь xml документ
begin
list:=tstringlist.create;

while pos('<steamid64>',s)<>0 then begin
delete(s,1,pos('<steamid64>',s)+10);
list.add(copy(s,1,pos('</steamid64>',s)-1));
end;

list.savetofile('id.txt');
list.free;
end;

[Пепел Феникса]

Tip.the.besT, все хорошо на вид.
но мой вам совет, откройте для себя PosEx.

[Tip.the.besT]

Сообщение от Пепел Феникса

Tip.the.besT, все хорошо на вид.
но мой вам совет, откройте для себя PosEx.

Не могли бы вы объяснить в чём преимущества PosEx над pos, delete, copy?