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:

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:

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:

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:

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