[Amin_Mansouri]

برای ایجاد یک xml به طور خیلی ساده می توانید از کد زیر استفاده کنید .که به طور دلخواه برای ایجاد هر گره مقادیر خود را بین </> <> تعریف می کنید .

کد:

procedure tform1.createxml();
var
DXML:TXMLDocument;


begin
       DXML:=TXMLDocument.Create(Self);
       DXML.Active:=true;
       DXML.XML.Text:='<?xml version="1.0" encoding="windows-1256" ?> '+
                      '<Ask>'+
                          '<systemname>'+ systemname +'</systemname>'+
                          ' <hostname>'+ hostname+'</hostname>'+
                          ' <Date>'+  datetostr(now)+' </Date>'+
                      '</Ask>';

       FileName_xml:= 'options.xml';
       DXML.XML.SaveToFile(ExtractFilePath(Application.ExeName)+FileName_xml);