XML mit TJvSimpleXml

[WizoHulk]

Hallo,
ich füge mittelss diesem Code Werte ein.

 Xml.Root.Items.ItemNamed['Share'].Items.Add('<Directory Virtual="WizoHulk">C:\Users\WizoHulk\</Directory>'); nach ddem abspeichern der xml sieht der Eintrag so aus

Code:

<&lt;Directory Virtual=&quot;WizoHulk&quot;&gt;C:\Users\WizoHulk\&lt;/Directory&gt;/>

wie kann ich dieses Problem beheben damit es dann in der XML so aussieht

Code:

'<Directory Virtual="Name">C:\Users\WizoHulk\</Directory>'

[himitsu]

Das < > und & zählen zu den Steuerzeichen.
Du fügst diese mit Add als Text ein und demnach werden sie natürlich "ordnungsgemäß" maskiert/kodiert.

Füge einen Node "Directory" hinzu, in diesem Node trägst du deinen Pfad als Text ein und nicht das Attribut "Virtual" mit dem Text "WizoHulk" vergessen.

[WizoHulk]

ich versteh gerade nur bahnhof.

also ich soll unter Share einen neuen knoten hinzufügen.

Code:

Directory

?!
aber was mache ich mit dem Virtual?

ich glaub ich stehe grad aufn schlauch

[WizoHulk]

wenn ich einen neuen Knoten erstellen mit den Namen Directory dann habe ich ja am Anfang und am ende den Namen.
Aber bei meinem Fall ist das ja so, das der Knotenname

Code:

<Directory Virtual =

ist und am ende

Code:

</Directory>

.

Code:

<Share>
  <Directory Virtual="Name">Pfad</Directory>
  <Directory Virtual="eigeneDateien">C:\eigeneDateien</Directory>
  <Directory Virtual="WizoHulk">C:\Users\WizoHulk\</Directory>
</Share>

[Sir Rufo]

Falsch, der Knoten hat als Namen

Code:

Directory

und dieser Knoten hat noch ein Attribut

Code:

Virtual

mit dem Wert

Code:

Name

.
Der Inhalt des Knotens ist dann

Code:

Pfad

XML Logischer Aufbau

[WizoHulk]

kann es sein das es keine Function gibt die eine Attribut setzt?

[Sir Rufo]

Such mal hier im Forum nach himXML damit geht das auf jeden Fall

[ConnorMcLeod]

Zitat von WizoHulk:

kann es sein das es keine Function gibt die eine Attribut setzt?

Attribute heissen dort Properties.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  lXML       : TJvSimpleXML;
begin
  lXML := TJvSimpleXML.Create(nil);
  try
    lXML.Root.Name := 'myroot';
    lXML.Root.Value := 'blah';
    lXML.Root.Properties.Add('propatt', 'value');
    RichEdit1.Text := lXML.XMLData;
  finally
    FreeAndNil(lXML);
  end;
end;

Ups, viel zu spät beantwortet ...