TXMLDocument: Typ (Null) in Typ (String) konvertieren

[Angel4585]

Hallo,

ich bekomme folgende Fehlermeldung wenn ich versuche einen String einzulesen.
Bei normalen Strings(also mit Inhalt) funktioniert dies, jedoch bei leeren Strings nicht.

---------------------------
XMLTestProgramm
---------------------------
Variante des Typs (Null) konnte nicht in Typ (String) konvertiert werden.
---------------------------
OK
---------------------------

Normal sieht es so aus:

XML-Code:

  <User>Benutzer</User> 
  <Password>Password</Password>

Bei leeren Strings so:

XML-Code:

  <User /> 
  <Password>Password</Password>

Und wenn versucht wird den User einzulesen kommt eben diese Fehlermeldung.
Wie mache ich jetzt, dass beim Speichern bei einem leeren String <User></User> anstatt <User /> eingetragen wird?

[mkinzler]

Wie liest du das ein über ein Art XML-DataSet? Dann muss du vorher auf .isNull prüfen

[Angel4585]

Naja mit der TXMLDocument Komponente
Und ein IsNull kann ich da nicht finden

BTW: Wir brauchen noch diesen Smilie in der DP: Lupe

[mkinzler]

Wie liest du aus?

[Deep-Sea]

Zitat von Angel4585:

Wie mache ich jetzt, dass beim Speichern bei einem leeren String <User></User> anstatt <User /> eingetragen wird?

Am Rande: <User></User> und <User /> stellen genau das gleiche dar. <User /> ist nur eine kürzere Schreibweise für ein Leeres Element.

[Angel4585]

Delphi-Quellcode:

procedure TMyList.LoadFromFile(AFile: string);
var
  i : integer;
  lxml : TXMLDocument;
  cn : IXMLNode;
  cnTemp : IXMLNode;

begin
if(not FileExists(AFile))then exit;
Self.Clear;
lxml := TXMLDocument.Create(Application);
with lxml do
  try
    Options:=Options + [doNodeAutoIndent];
    LoadFromFile(AFile);
    cn:=DocumentElement;
    for i :=0 to Pred(cn.ChildNodes.Count)do
      begin
      if(cn.ChildNodes.Nodes[i].NodeName = 'MyItem')then
        begin
        with TMyItem.Create(self) do
          begin
          FUser:=     cn.ChildNodes[i].ChildValues['User'];//Hier tritt der Fehler auf
.
.

Und so schreib ich:

Delphi-Quellcode:

procedure TMyList.SaveToFile(AFile: string);
var
  i : integer;
  w : IXMLNode;

begin
with TXMLDocument.Create(nil) do
  try
    Active:=True;
    Options:=[doNodeAutoIndent];
    ParseOptions:=[poPreserveWhiteSpace];
    with AddChild('MyList') do
      begin
      for i :=0 to Pred(Self.Count)do
        begin
        with AddChild('MyItem') do
          begin
          AddChild('User').Text:=MyItems[i].FUser;
          AddChild('Password').Text:=MyItems[i].FPassword;
.
.

Hui der rote Kasten geht mal

Zitat von Deep-Sea:

Zitat von Angel4585:

Wie mache ich jetzt, dass beim Speichern bei einem leeren String <User>&lt;/User&gt; anstatt &lt;User /&gt; eingetragen wird?

Am Rande: &lt;User&gt;&lt;/User&gt; und &lt;User /&gt; stellen genau das gleiche dar. &lt;User /&gt; ist nur eine kürzere Schreibweise für ein Leeres Element.

Und was wenn ein String einfach ' ' sein soll? Also ein Leerzeichen? Dann macht er auch dieses <User />

Edit: Gott hats das Zitat verhunzt

[mkinzler]

Was passiert wenn du
cn.ChildNodes[i].Text nimmst?

[Angel4585]

Zitat von mkinzler:

Was passiert wenn du
cn.ChildNodes[i].Text nimmst?

Sehr schön das klappt

[Deep-Sea]

Zitat von Angel4585:

Und was wenn ein String einfach ' ' sein soll? Also ein Leerzeichen? Dann macht er auch dieses <User />

Dann sollte daraus nicht <User /> werden. Das liegt dann aber bei der Komponente die du nutzt