Работа с Xml в Delphi

[yuta_86]

нашёл ошибку в слове ReadAttributeInteger но при запуске программы
вылетает с ошибкой на строке for i:=0 to NodeCount-1 do

[yuta_86]

думаю и тут надо ставить for i:=0 to NodeList.Count-1 do
но ошибка снова

[Человек_Борща]

пишу на коленке, правильное описание методов потрудитесь смотреть в справке компонента. Ошибка в слове атрибут.

[yuta_86]

код всё равно не работает

[phomm]

Слова "код всё равно не работает" и аналогичные им, без архива проекта прикрепленного к посту (или нужного куска с текстом ошибки) не имеют никакого смысла, я бы удалял даже такие, ибо без телепатических способностей диалог не построится.

[yuta_86]

хорошо в понедельник пришлю проект.

[Человек_Борща]

yuta_86, NativeXML и любой другой XML парсер, требуют правильного оформления XML документа. В вашем видимо нет заголовка, либо это кусок xml, что врятли.
Создайте пустой xml с пом. nativexml и возьмите оттуда заголовок.

вылетает с ошибкой на строке for i:=0 to NodeCount-1 do

NodeCount есть у всех TXmlNode.
Главная нить называется Root.
xml.root и поехали....

думаю и тут надо ставить for i:=0 to NodeList.Count-1 do

Не нужно.



Так же вы явно напираете на готовый код, и не хотите ничему учиться/разбираться. Что пичально.

[yuta_86]

Как и обещал проект

MY NatuveXML.rar
посмотрите пожалуйста.

[SolovejK]

Заношу список XML файлов в ListBox так:

procedure TForm1.Button2Click(Sender: TObject);
var
  str: string;
  sr : TSearchRec;
  FindRes, p : Integer;
begin
  ListBox1.Clear;
  FindRes := FindFirst(ExtractFilePath(Application.ExeName)+ '\XML\' + '*.xml',faAnyFile,sr); 
  While FindRes = 0 do 
    begin
      str:=sr.Name;
      p:=pos('_',str);
      delete(str,1,p);
      Delete(Str,Pos('.',Str),Length(Str));
      ListBox1.Items.Add(sr.Name);
      FindRes:=FindNext(sr); 
    end;
  FindClose(SR); 
end;

Беру нужные данные из XML файлов так:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  Uzel : TXMLNode;
  i : integer;
begin
  XMLDoc := TNativeXML.Create(Self);
  XMLDoc.LoadFromFile(Listbox1.Items.Strings[ListBox1.ItemIndex]);
  XMLDoc.XmlFormat := xfReadable;
  LabeledEdit1.Text := XMLDoc.Root.ChildContainers[2].ValueUnicode;
  LabeledEdit2.Text := XMLDoc.Root.ChildContainers[7].Name;
  LabeledEdit3.Text := XMLDoc.Root.ChildContainers[7].ChildContainers[0].Name;
  ListBox2.Clear;

   Uzel := xmlDoc.Root.FindNode('ib');
   for i := 0 to Uzel.ChildContainerCount - 1 do
   begin
     Listbox2.Items.Add(Uzel.Nodes[i].Name + ' - ' + Uzel.Nodes[i].AttributeByName['name'].Value);
   end;

end;

Как видно из кода XML файлы грузятся из папки XML, которая находится рядом с экзешником.

При OnClick на ListBox, на нужном файле, XML файлы напрочь отказываются читаться и вылетает ошибка, что невозможно найти указанный файл, хотя все нашлось и сидит в ListBox.

Теперь, если эти же XML файлы дополнительно скопировать в папку с экзешником все прекрасно работает, все XML файлы читаются как надо.

Подскажите в чем моя ошибка? Почему программа пытается искать эти файлы при чтении там где расположена сама, а не в папке XML.

[Аватар]

Зачем постить свои вопросы в чужую тему? В sr.Name имя файла без пути, поэтому в текущем каталоге находит, а в подкаталоге нет