Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
// global variables sl : TStringList; xmlDoc : TXMLDocument; // glavna proc izvjestaja procedure TForm1.izvjestaj(tip,pocetak,kraj: String); // Ispis izvjstaja var mainNode : IXMLNode; begin xmlDoc := TXMLDocument.Create(nil) ; try xmlDoc.Active := true; xmlDoc.Version:='1.0'; xmlDoc.Encoding:='utf-8'; mainNode := xmlDoc.AddChild('TremolFpServer') ; mainNode.Attributes['Command'] := 'Report'; mainNode.Attributes['Type'] := tip; if pocetak<>'' then mainNode.Attributes['Start'] := pocetak; if kraj<>'' then mainNode.Attributes['End'] := kraj; sl := TStringList.Create; // String lista try sl.Assign(xmlDoc.XML) ; sl.SaveToFile('c:\Fiscal_comm\Izvjestaj-0000001.xml') ; finally sl.Free;