Создание сложной структуры XML

[artemavd]

Вот, попробовал сделать так для примера:

        if ( SearchRec.Name = '.' ) or ( SearchRec.Name = '..' ) then Continue;

        ObjNode := ANode.AddChild( 'item' );
        ObjNode.AddChild('<Path_to_PDF="').Text:=ExtractFilePath(Path) + SearchRec.Name + '">';
        ObjNode.AddChild('<Page_Number="').Text:= '11111">';
        ObjNode.AddChild('<Number="').Text:='22222">';

//        ObjNode.Text := '<Path_to_PDF="' +ExtractFilePath(Path) + SearchRec.Name + '">';

Выдается ошибка:

[maxionans]

не надо никаких знаков < и >, вставь именно тот код, который я указал

[artemavd]

Ага, крутабл). Почти то, что нужно. Остался маленький минивопрос. Нужно в поле Number отображать только число, без расширения. Пишу так:

        ObjNode.AddChild('Page_Number').Text:=GetBefore('_',SearchRec.Name);
        ObjNode.AddChild('Number').Text:=ExtractFileName(GetAfter('_',SearchRec.Name));
        ObjNode.AddChild('Path_to_PDF').Text:=ExtractFilePath(Path) + SearchRec.Name;

но расширение не отбрасывается, а остается, а его не надо отображать.
Функции GetBefore и GetAfter взял отсюда

Как отбросить это расширение-то?

[maxionans]

Попробуй это:
ObjNode.AddChild('Number').Text := ChangeFileExt( ExtractFileName(GetAfter('_',Search Rec.Name)), '' );

[artemavd]

Да, помогло . Точно. Как я мог совсем забыть о смене расширения на пустое..