Zitat von
PfWSkip;1058059Allerdings liefert deine Funktion "VarIsDispatchObject" [B:
immer[/B] True zurück, egal ob 'table' jetzt existiert oder nicht
Das ist aber nicht schlimm.
Anscheinend wird hier eine leere Collection vom Typ
IHTMLElementCollection zurückgeliefert.
Anstatt zu prüfen, ob ein Objekt (genauer gesagt ein Dispatch-Interfacezeiger) zurückkommt,
prüft man ob die Collection leer ist:
Delphi-Quellcode:
table := document.all.tags('
table');
if table.length = 0
then
raise Exception.Create('
kein "table"-Element im Dokument enthalten');
aNode := table.Item[0];