вот мой код формирования xml
function TForm1.CreANDFormxml():boolean;
var
lt:Tsystemtime;
timestroka,temp:string;
time: Tdatetime;
yy,dd,mm,nn,hh,ss:string;
i:integer;
begin
try
getsystemtime(lt);
timestroka:=inttostr(lt.wDay)+'.'+inttostr(lt.wMon th)+'.'+inttostr(lt.wYear)
+' '+inttostr(lt.wHour)+':'+inttostr(lt.wMinute)+':'+ inttostr(lt.wSecond);
time:=strtodatetime(timestroka);
timestroka:=formatdatetime('dd.mm.yyyy hh:nn:ss',time);
dd:=formatdatetime('dd',time);
mm:=formatdatetime('mm',time);
yy:=formatdatetime('yyyy',time);
hh:=formatdatetime('hh',time);
nn:=formatdatetime('nn',time);
ss:=formatdatetime('ss',time);
timestroka:=yy+mm+dd+hh+nn+ss+'GMT+3DL';
Xml := TXMLDocument.Create (nil);
Xml.Active := true;
xml.Version:='1.0';
xml.Encoding:='windows-1251';
// ñîçäàåì êîðíåâîé óçåë
iNode := Xml.AddChild ('package');
iNode.Attributes['class']:=51070;
iNode.Attributes['version']:=1;
iNode.Attributes['created']:=timestroka;
iNode.Attributes['id']:='97D5BB9C5AD74730919BE30075893A0E';
adjacent:=iNode.AddChild('adjacent');
adjacent.Attributes['code-from']:='PMOSEN29';
adjacent.Attributes['code-to']:='PRYAZGRE' ;
for i:=0 to 5 do
begin
flow:=adjacent.AddChild('flow');
flow.Attributes['begin']:=timestroka;
flow.Attributes['begin']:=timestroka+'fvgdf';
end;
//date.ChildValues['timestamp']:=timestroka;
//date.ChildValues['day']:=copy(timestroka,1,8);
//date.ChildValues['daylightsavingtime']:=1;
//sender:=iNode.ChildNodes['sender'];
//sender.ChildValues['name']:='ÎÃÊ-6';
//sender.ChildValues['inn']:=6164232756;
creANDformxml:=true;
except
creANDformxml:=false;
end;
end;
вопрос такой как сделать вывод имеено комментария, все что я показал реально работает и мне нужно только добавить комметарий
|