[Maxjuvefan]

Ребят, столкнулся с такой проблемой - как создать в Delphi 2010 xml файл, чтобы был один корневой тег, в котором есть несколько переменных? Значения переменных будут браться из БД на SQL.

Нужно, чтобы xml файл выглядел таким образом:

<?xml version="1.0" encoding="utf-16"?>
<AssignmentQR text00_Вид="Документ" text01_Начальник="Начальник отдела ИТ" text02_фио="Иванов А.В." />

Именно такой формат нужен, чтобы созданные xml файлы открывались через другую программу и обрабатывались там.

Пробую сделать через AddChild, но оно создает много тегов, а нужно, чтобы все было в одном.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Button1Click(Sender: TObject); var   Xml: IXMLDocument; begin   // создаем   Xml := TXMLDocument.Create (nil);   Xml.Active := true; // создаем   with Xml do     begin       // создаем корневой узел       with AddChild ('AssignmentQR') do         begin        // дочерние элементы             ChildValues ['text02_фио'] := '=" Иванов  А.В."';             ChildValues ['text01_Начальник'] := '="Начальник отдела ИТ"';             ChildValues ['text00_Вид'] := '="Документ"';         end;  // with     end;  // with: создаем Xml.SaveToFile ('D:\44.xml'); end;

Пробую сделать через Add, возникает проблема длины строки, нужная строка больше 255 символов (textN много). Файл получается, но через браузер не отрывается.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var   Xml: TStringList; begin    // создаем объект    Xml := TStringList. Create;    // формируем документ    Xml. Add ('<?xml version="1.0" encoding="UTF-16"?>');    Xml. Add ('< AssignmentQR text00_Вид="Документ" text01_Начальник="Начальник отдела ИТ" text02_фио="Иванов А.В."/>');    // записываем    Xml. SaveToFile ('D:\333333.xml');    // освобождаем память    FreeAndNil (Xml); end;

Админ: Пользуемся тегами для оформления кода, иначе последуют санкции!

Помогите, кто чем может.

[@Rafa3L]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function SaveToXMLFile(s1, s2, s3, FileName: string): bool; begin  with TStringList.Create do   begin    Add('<?xml version="1.0" encoding="utf-16"?>');    Add('<AssignmentQR text00_Вид="' + s1 +        '" text01_Начальник="'       + s2 +        '" text02_фио="'             + s3 + '" />');      SaveToFile(FileName);    Free;   end;  Result:= FileExists(FileName); end;

4250