Re: [xml-dev] Create XML

["Emmanuil Batsis (Manos)" <mbatsis@netsmart.gr>]

You should use an XML API to create/manipulate XML documents instead of 
raw string manipulation. Search for tutorials on google... for example 
take a look at

http://homepages.borland.com/ccalvert/TechPapers/Delphi/XMLSimple/XMLSimple.html

MAnos

Mehmet AVSAR wrote:
> Hi Friends,
>  
> I must create a XML file in Delphi. But i don't know XML. I have a XML 
> file format.
>  
> <?xml version="1.0" standalone="yes"?>
> <DATAPACKET Version="2.0">
> <METADATA>
> <FIELDS>
> <FIELD attrname="ADI_SOYADI" fieldtype="string" WIDTH="35"/>
> <FIELD attrname="FIRMA_UNVANI" fieldtype="string" WIDTH="35"/>
> <FIELD attrname="TELEFON" fieldtype="string" WIDTH="15"/>
> <FIELD attrname="E_POSTA" fieldtype="string" WIDTH="50"/>
> <FIELD attrname="IDO_REF_NO" fieldtype="string" WIDTH="13"/>
> <FIELD attrname="ADRES" fieldtype="string" WIDTH="140"/>
> <FIELD attrname="POSTA_KODU" fieldtype="string" WIDTH="8"/>
> <FIELD attrname="SATIS_TARIHI" fieldtype="string" WIDTH="10"/>
> <FIELD attrname="SATIS_SAATI" fieldtype="string" WIDTH="8"/>
> <FIELD attrname="TESLIM_OLACAK_TARIH" fieldtype="string" WIDTH="10"/>
> <FIELD attrname="TESLIM_OLACAK_SAAT" fieldtype="string" WIDTH="8"/>
> <FIELD attrname="MKURKE_OPB_KODU" fieldtype="string" WIDTH="3"/>
> <FIELD attrname="BILETLER" fieldtype="nested">
> <FIELDS>
> <FIELD attrname="BILET_NO" fieldtype="string" WIDTH="15"/>
> <FIELD attrname="BILET_DEGER" fieldtype="string" WIDTH="15"/>
> </FIELDS>
> <PARAMS/>
> </FIELD>
> </FIELDS>
> <PARAMS/>
> </METADATA>
> <ROWDATA>
> </ROWDATA>
> </DATAPACKET>
>  
> I create this file with TMemo line.
>  
>   Memo1.Lines.Add('<ROW');
>   Memo1.Lines.Add('ADI_SOYADI="'+Query1Namesurname.AsString+'"');
>    --------
>   Memo1.Lines.Add('/>');
> But i can not add sub item for
>  
> <FIELD attrname="BILETLER" fieldtype="nested">
> <FIELDS>
> <FIELD attrname="BILET_NO" fieldtype="string" WIDTH="15"/>
> <FIELD attrname="BILET_DEGER" fieldtype="string" WIDTH="15"/>
> </FIELDS>
> How can i added it?
>  
>  
> Best regards,
>  
> Mehmet