Leerstring macht NodeValue zum Null

[Boro]

Hallo an alle,

ein Leerstring in eine OLEVariant Variable zuweisen macht kein problem beim ablesen der Variable später.
Aber ein Leerstring zum Knoten zuweisen schon. Es macht ein Null OLEVariant aus dem NodeValue.

Delphi-Quellcode:

var
  TmpS: string;
  Ov: OleVariant;
  DomDoc: IXMLDocument;
  PlatoNode,RootNode: IXMLNode;
begin
  Ov := '';
  TmpS := Ov;   // kein Fehler beim OLEVariant mit ''

  DomDoc := NewXMLDocument();
  RootNode := DomDoc.AddChild('root');
  PlatoNode := RootNode.AddChild('plato');
  PlatoNode.NodeValue := 'abc';
  PlatoNode.NodeValue := '';
  TmpS := PlatoNode.Text;   // kein Fehler hier
  TmpS := PlatoNode.NodeValue; // hier kommt es zum Fehler

Der EVariantTypeCastError 'Could not convert variant of type (Null) into type (String)' taucht auf.
Der XMLData Binding Wizard generiert fur die End Knoten property und getter/setter Funktionen wie zB

Delphi-Quellcode:

  IXMLRootType = interface(IXMLNode)
    ['{E29C33F4-7C7C-4213-B56D-482D7509B675}']
    { Property Accessors }
    function Get_Plato: String;
    procedure Set_Plato(Value: String);
    { Methods & Properties }
    property Plato: String read Get_Plato write Set_Plato;
  end;

{ TXMLRootType }

function TXMLRootType.Get_Plato: String;
begin
  Result := ChildNodes['plato'].NodeValue;
end;

Wie kann man ich die property Root.Plato verwenden wenn auch Leerstring ein mogliches Wert sein kann?
Merkwurdig, das die property Text einen Leerstring zuruck geben kann auch aus dem Knoten mit Null.