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.