🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.delphi.xml
Article #178

Re: Another Newbie question

#178
From: Mikael Eriksson
Date: Thu, 29 May 2008 07:55
19 lines
1434 bytes
Here is some code that uses the generated code.
Adds two Style nodes to the Guides node.
Adds one Manufacturer node to the Wraps node.
Saves the xml document to c.xml

procedure TForm1.Button1Click(Sender: TObject);
var
   c: IXMLComponents;
begin
   c := NewComponents;
   c.Guides.Style.Add('GuideStyle1');
   c.Guides.Style.Add('GuideStyle2');
   c.Wraps.Manufacturer.Add('WrapManu');
   c.OwnerDocument.SaveToFile('c.xml');
end;

regards

/MIcke
Technical Details
Message-ID: <483e613b@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nac.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail
References: <483dbd97@newsgroups.borland.com>

Show Full Headers
Complete Article Headers
X-Google-Thread: f5d9b,be18493f56f54c05
X-Google-Attributes: gidf5d9b,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Date: Thu, 29 May 2008 09:55:06 +0200
From: Mikael Eriksson <micke314@gmail.com>
User-Agent: Thunderbird 2.0.0.14 (Windows/20080421)
MIME-Version: 1.0
Newsgroups: borland.public.delphi.xml
Subject: Re: Another Newbie question
References: <483dbd97@newsgroups.borland.com>
In-Reply-To: <483dbd97@newsgroups.borland.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 213.50.33.2
Message-ID: <483e613b@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1212047675 213.50.33.2 (29 May 2008 00:54:35 -0700)
Lines: 19
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nac.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail
X-Original-Bytes: 1265