Hallo,
ich programmiere eindeutig zu selten. XML zu Fuß habe ich schon mal eingebunden, jetzt habe ich mir den Experten von Delphi XE mal den Code automatisch generieren lassen und ich scheitere am einfachen "durchblättern" der XML-Datei:
<?xml version="1.0" encoding="UTF-8"?>
<CodeBlock>
<item>
<title>MeinTitel</title>
<code>Begin End;</code>
<ID>0</ID>
<language>0</language>
</item>
<item>
<title>AnotherTitle</title>
<code>procedure MyScript; Begin End; Run(MyScript);</code>
<ID>1</ID>
<language>0</language>
</item>
</CodeBlock>
Ich habe dem Assistenden diese Datei mitgegeben und er generiert mir eine Unit. Mit dem Code sollte man lt.
http://docwiki.embarcadero.com/RADSt...lcode_arbeiten
arbeiten können.
Mit
procedure Irgendwas;
var
CodeBlock: IXMLCodeBlockType; / IXMLCodeBlockType aus automatisch generierter Unit
begin
CodeBlock := GetCodeBlock(xmlCodeBlocks); // GetCodeBlock aus automatisch generierter Unit.
ShowMessage(CodeBlock.Item.Code);
end;
Kann ich auf das erste Element der XML-Datei zugreifen. Aber wie komme ich zu den weiteren Elementen? Ich schaffe es nicht, das durchzublättern. IXMLCodeBlockType(CodeBlock.NextSibling).Item.Code bringt mir eine Zugriffsverletzung. Ich weiß nicht wo ich "NextSibling-en" muss.
Kann mir jemand helfen?
Danke.
CodeGier
ich programmiere eindeutig zu selten. XML zu Fuß habe ich schon mal eingebunden, jetzt habe ich mir den Experten von Delphi XE mal den Code automatisch generieren lassen und ich scheitere am einfachen "durchblättern" der XML-Datei:
<?xml version="1.0" encoding="UTF-8"?>
<CodeBlock>
<item>
<title>MeinTitel</title>
<code>Begin End;</code>
<ID>0</ID>
<language>0</language>
</item>
<item>
<title>AnotherTitle</title>
<code>procedure MyScript; Begin End; Run(MyScript);</code>
<ID>1</ID>
<language>0</language>
</item>
</CodeBlock>
Ich habe dem Assistenden diese Datei mitgegeben und er generiert mir eine Unit. Mit dem Code sollte man lt.
http://docwiki.embarcadero.com/RADSt...lcode_arbeiten
arbeiten können.
Mit
procedure Irgendwas;
var
CodeBlock: IXMLCodeBlockType; / IXMLCodeBlockType aus automatisch generierter Unit
begin
CodeBlock := GetCodeBlock(xmlCodeBlocks); // GetCodeBlock aus automatisch generierter Unit.
ShowMessage(CodeBlock.Item.Code);
end;
Kann ich auf das erste Element der XML-Datei zugreifen. Aber wie komme ich zu den weiteren Elementen? Ich schaffe es nicht, das durchzublättern. IXMLCodeBlockType(CodeBlock.NextSibling).Item.Code bringt mir eine Zugriffsverletzung. Ich weiß nicht wo ich "NextSibling-en" muss.
Kann mir jemand helfen?
Danke.
CodeGier
Comment