Вывод данных в формате XML

[Elena_20]

Здравствуйте, есть такая задача. Нужно вывести данные из файла Vcard в формате XML. Подскажите, пожалуйста, как это сделать.
Пока только открываю файл и вывожу информацию в memo, а теперь ещё нужно и в формате XML

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 F: TextFile;
 S: string;
 
begin
   OpenDialog1.Execute;
   if (OpenDialog1.FileName<>'')then
   begin
   assignFile(f,OpenDialog1.FileName);
   Reset(f);
   while not Eof(F) do
   begin
   Readln(F, S);
   memo1.Lines.Add(s);
   end;
   CloseFile(F);
end;
    end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;
 
end.

Чтоб результат был таков:
<?xml version="1.0" encoding="UTF-8"?><package>
<contact P="76637767867" FN="FirstName" LN="LastName" MN="MiddleName" Date="2013-02-01" Comment="xxx"/>
<contact P="75637764767" FN="FirstName1" LN="LastName1" MN="MiddleName1" Date="2012-02-01" Comment="xxx"/>
</package>

Заранее спасибо

[s-andriano]

Лично я вижу 3 варианта:
1. Воспользоваться существующими библиотеками по работе с xml, например, майкрософтовской.
2. Написать свою.
3. Написать простую процедуру, которая формирует файл нужного формата без использования "тяжелых" средств работы с xml.

[Аватар]

В палитре Internet компонент TXMLDocument. Его осваивайте, больше пользы будет на будущее, чем просто свою легковесную процедуру

[s-andriano]

Сообщение от Аватар

В палитре Internet компонент TXMLDocument. Его осваивайте, больше пользы будет на будущее, чем просто свою легковесную процедуру

Вот это не факт.
У меня есть, минимум, два примера, опровергающие эту точку зрения. Хотя, согласен, такая точка зрения тоже имеет право на существование.
А теперь два примера:
1. Собственно, здесь не "легковесная процедурка", а более или менее универсальный инструмент, позволяющий как читать, так и писать xml. Основное достоинство - скорость работы. Был прецедент, когда созданный при помощи моего модуля документ пытались прочитать майкрософтовским парсером. Первая реакция - программа зависла. Но оказалось, что просто для чтения ей потребовалось более 10 минут.
А мой модуль сформировал этот файл за 2.5 секунды, включая чтение достаточно объемного файла, который, собственно, и нужно было преобразовать в xml.
2. Регулярно требуется обрабатывать xml-файлы объемом в десятки или даже сотни Гбайт (я не описался, именно Гбайт, а не Мбайт). Здесь пошел как раз по пути "легковесной процедурки". И именно это также позволило как вписаться в доступное адресное пространство 2 Гб, так и в приемлемое время работы (по сути совпадающее с временем выполнения дисковых операций).

Так что для простеньких случаев, возможно, и лучше пользоваться стандартными компонентами, но в сложных - все равно приходится писать что-то свое.

[Аватар]

s-andriano, речь же не идет об обработке гигабайтных файлов и миллионов узлов. Это другая история и другое программирование. Легковесная процедура была не в ваш адес

[s-andriano]

Аватар, я не просто так предложил 3 варианта вместо одного.
Выбор неоднозначен и зависит от конкретной задачи.

И вообще, почему Вы думаете, что ТС не может оказаться знакомство с "внутренностями" xml, без которого не реализовать варианты, которые я обозначил как 2 и 3?

PS.

гигабайтных файлов и миллионов узлов

Аватар, Вы, наверное, все-таки обладаете телепатическими способностями.
В тех "гигабайтных файлах" как раз есть "узлы", именуемые, как не трудно догадаться "node". Правда, их количество не совсем "миллионы", т.к. совсем недавно, а именно 9 февраля сего года их количество перевалило через границу 2147483648.

[Elena_20]

В моем случае лучше воспользоваться стандартными компонентами) Почитала про TXMLDocument, посмотрела.
Вот такой вопрос возник. Стандартный файл vCard выглядит след. образом:
BEGIN:VCARD
VERSION:3.0
TEL:121220
N:Пупкин;Василий;Иванович;
END:VCARD
Как мне вывести результат таким образом?
<VCard>
<BEGIN>VCARD</BEGIN>
<VERSION>3.0</VERSION>
<TEL>121220</TEL>
<N>Пупкин;Василий;Иванович;</N>
<END>VCARD</END>
</VCard>
Просто нашла в основном материал по тому, как загружать файл XML в Delphi. Вообще новичок в этом вопросе, раньше с XML в Delphi не сталкивалась ((

[Elena_20]

начала делать

var
  Xml: IXMLDocument;
begin
  Xml := TXMLDocument. Create (nil);
  Xml.Active := true;
  XML.Version := '1.0';
  XML.Encoding := 'UTF-8';
  with Xml do
    begin
     with AddChild ('package') do
        begin
          ChildValues [''] := '';

и вот дальше начались трудности

 ChildValues [''] := '';

Не совсем поняла, как мне выводить в теги то, что до знака : ?

[Elena_20]

Может кто сталкивался с тем, как перевести vCard в hCard-формат ?