05-07-2011، 10:59 PM
برای ایجاد یک 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);