Wert von OleVariant überprüfen?

[shmia]

Wenn du überprüfen willst, ob in einem OleVariant ein (Automatisierungs)-Objekt steckt, dann:

Delphi-Quellcode:

var 
   x, Document : OleVariant;  // nicht Variant 
begin 
  Document:=WebBrowser.Document; 
  x:=Document.getElementById('count'); 

  if VarType(FormItem) = varDispatch then   // <-=====
     ShowMessage(x.innerHTML)
  else
     ShowMessage('nix geladen :-(');

Dann packst du dir das in ein Funktion, dann hast du es immer parat:

Delphi-Quellcode:

function VariantIsObject(const value:OleVariant):boolean;
begin
   result := (VarType(value) = varDispatch);
end;