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

[artemavd]

maxionans, а как правильно вызвать эти процедуры и что именно передать в качестве параметров?

[maxionans]

Всё просто. Вот процедура: procedure SaveFolderTree(const AFolder, AFileName : String).
Её параметры:
AFolder - путь к папке, структуру которой нужно сохранить
AFileName - имя xml файла, в который будет записана структура

[artemavd]

Странно, но у меня данный код отработал один раз всего и последующие разы не хочет создавать XML....Вот, вызываю код так:

procedure TMainForm.Button2Click(Sender: TObject);
begin
 SaveFolderTree('C:\Users\Àðòåì Ãëàâàöêèé\Desktop\test_files', '000.xml')
end;

[maxionans]

то есть ты перед вызовом этой процедуры удаляешь 000.xml и потом он не создаётся? или как?

[artemavd]

удаляешь 000.xml и потом он не создаётся?

Ага, типа того. Я один раз создал его. Потом удалил его, нажал на кнопку еще раз и файл уже не создается

[maxionans]

хм, у меня нормально работает. попробуй указать полное имя xml файла, т.е. с путём к папке.

[artemavd]

Да, указал полный путь и заработало. Ок, с этим я разберусь. А как в коде прописать еще, чтобы к каждой PDF-ке выводился в XML еще полный путь к ней? XML такой получается:

[maxionans]

в процедуре BuildTree замени строку
ObjNode.Text := SearchRec.Name;
на
ObjNode.Text := Path + SearchRec.Name;

[artemavd]

Да, хорошо, это я заменил. А такой вопрос. А как добавить еще две строчки чуть ниже после Path_to_PDF, чтобы также присвоить им значения? Например еще две строки - Page_Number и Number. Как значения им просвоить я может как-нибудь догадаюсь, тока ткни плиз место где это прописать в процедуре? Нынешний XML:

[maxionans]

попробуй так:

ObjNode.AddChild( 'Page_Number' ).Text := IntToStr( PageNumber );
ObjNode.AddChild( 'Number' ).Text := IntToStr( Number );