Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Existiert Knoten in XML Dokument

  Alt 19. Apr 2007, 11:54
Ich habe es jetzt so:
Delphi-Quellcode:
class function TTemplateIO.IsFBITemplate(const Filename: WideString): Boolean;
var
  XMLDoc : IXMLDocument; //DomDocument;
  Node : IXMLDOMNode;
begin
  Result := False;
  XMLDoc := NewXMLDocument;
  if Assigned(XMLDoc) then
  begin
    try
      XMLDoc.LoadFromFile(Filename);
      Result := XMLDoc.Node.ChildNodes.FindNode('dwfbtemplate') <> nil;
    except
      // empty
    end;
  end;
end;
Aber ich könnte irre werden, Result ist immer false, auch wenn ich die richtige Datei übergebe. Den try-except Block brauche ich, damit mir das nicht um die Ohren fliegt, wenn keine XML-Datei übergeben wird.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat