Nein, das kann auch keine Lösung sein. Aber so geht es:
Delphi-Quellcode:
function TConfigFile.GetIsYearConfigured: Boolean;
var
ChildNodes: IXMLDOMNodeList;
SubNode: IXMLDOMNode;
i: Integer;
s:
String;
begin
result := False;
if FYear <> '
'
then
begin
ChildNodes := FXmlDoc.documentElement.selectNodes('
zeitraum');
for i := 0
to ChildNodes.length - 1
do
begin
SubNode := ChildNodes.item[i];
s := SubNode.selectSingleNode('
@jahr').nodeValue;
ShowMessage(s);
end;
end
else
raise Exception.Create(rsNoYear);
end;