XML: Problem mit leeren Eintrag in XML-Datei

**Helmi**

Hallo,

ich als Anfänger in Sachen XML hätt da mal eine bescheidene Frage:

Ich frag mit:

Delphi-Quellcode:

			var

  Caption_Text    : String;

  XML_Node        : IXMLNode;

begin

{...}

Caption_Text := XML_Node.ChildNodes['Caption'].NodeValue;

den Wert eines Eintrages raus und schreib ihn auf die String-Variable "Caption_Text".

Nun hab ich aber das Problem, dass der Eintrag leer ist, er also keinen String enthält.
(Das kann bei mir vorkommen).

Wenn ich also nun starte kommt folgende Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EVariantTypeCastError aufgetreten. Meldung: 'Variante des Typs (Null) konnte nicht in Typ (String) konvertiert werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Wie kann ich abfragen, ob dieser Eintrag nichts enthält, damit ich die Fehlermeldung nicht mehr erhalte?

**marabu**

Hallo Helmi,

ist ja eigentlich kein XML-Problem:

markieren

Delphi-Quellcode:

			var

  ov: OleVariant;

begin

  ov := XML_Node.ChildNodes['Caption'];

  if VarIsNull(ov)

    then Caption_Text := ''

    else Caption_Text := ov.NodeValue;

end;

Grüße vom marabu

**Helmi**

oh danke!!

diese function kanne ich gar nicht

**Helmi**

Zitat von marabu:

Hallo Helmi,

ist ja eigentlich kein XML-Problem:

markieren

Delphi-Quellcode:

			var

  ov: OleVariant;

begin

  ov := XML_Node.ChildNodes['Caption'];

  if VarIsNull(ov)

    then Caption_Text := ''

    else Caption_Text := ov.NodeValue;

end;

Grüße vom marabu

müsst es nicht besser so heissen:

markieren

Delphi-Quellcode:

			var

  ov: OleVariant;

begin

  ov := XML_Node.ChildNodes['Caption'].NodeValue;

  if VarIsNull(ov)

    then Caption_Text := ''

    else Caption_Text := ov;

end;

**marabu**

Hallo Helmi,

eigentlich hatte ich noch etwas ganz anderes schreiben wollen, aber ich bin manchmal etwas unkonzentriert:

markieren

Delphi-Quellcode:

			var

  ov: OleVariant;

begin

  ov := XML_Node.ChildValues['Caption'];

  if VarIsNull(ov)

    then Caption_Text := ''

    else Caption_Text := ov;

end;

Grüße vom marabu

XML: Problem mit leeren Eintrag in XML-Datei

XML: Problem mit leeren Eintrag in XML-Datei

Re: XML: Problem mit leeren Eintrag in XML-Datei

Re: XML: Problem mit leeren Eintrag in XML-Datei

Re: XML: Problem mit leeren Eintrag in XML-Datei

Re: XML: Problem mit leeren Eintrag in XML-Datei

Forumregeln

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#2 Re: XML: Problem mit leeren Eintrag in XML-Datei 9. Okt 2005, 12:07 Hallo Helmi, ist ja eigentlich kein XML-Problem: markieren Delphi-Quellcode: var ov: OleVariant; begin ov := XML_Node.ChildNodes['Caption']; if VarIsNull(ov) then Caption_Text := '' else Caption_Text := ov.NodeValue; end; Grüße vom marabu
	Zitat

Helmi Registriert seit: 29. Dez 2003 Ort: Erding, Republik Bayern 3.312 Beiträge Delphi XE2 Professional	#3 Re: XML: Problem mit leeren Eintrag in XML-Datei 9. Okt 2005, 12:15 oh danke!! diese function kanne ich gar nicht mfg Helmi >> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#5 Re: XML: Problem mit leeren Eintrag in XML-Datei 14. Okt 2005, 06:19 Hallo Helmi, eigentlich hatte ich noch etwas ganz anderes schreiben wollen, aber ich bin manchmal etwas unkonzentriert: markieren Delphi-Quellcode: var ov: OleVariant; begin ov := XML_Node.ChildValues['Caption']; if VarIsNull(ov) then Caption_Text := '' else Caption_Text := ov; end; Grüße vom marabu
	Zitat