16,748
社区成员
发帖
与我相关
我的任务
分享VB的Is Nothing转成Delphi应该用什么函数？
的代码：
If WebBrowser.Document.activeElement Is Nothing Then
转为Delphi代码怎么写？
用下面函数都不行：
VarIsNull()
VarIsEmpty()
VarType(WebBrowser.Document.activeElement)返回的是vtDispatch，但无法判断是否nothing
If WebBrowser.Document.activeElement Is Nothing Then
转为Delphi代码怎么写？
用下面函数都不行：
VarIsNull()
VarIsEmpty()
VarType(WebBrowser.Document.activeElement)返回的是vtDispatch，但无法判断是否nothing
...全文
请发表友善的回复…
发表回复
WGYKING 2004-10-24
- 打赏
- 举报
^_^
ttjacky 2004-10-24
- 打赏
- 举报
唉，我丢人了 ：（
hottey 2004-10-22
- 打赏
- 举报
楼主，高人也。。。
Jackson_GZ 2004-10-21
- 打赏
- 举报
解决了, 自己写的函数：
function IsNothing(Dispatch: Variant): Boolean;
var
disp: IDispatch;
begin
Result:= VarIsType(Dispatch, varDispatch);
if Result then
begin
disp:= Dispatch;
Result:= disp = nil;
end;
end;
function IsNothing(Dispatch: Variant): Boolean;
var
disp: IDispatch;
begin
Result:= VarIsType(Dispatch, varDispatch);
if Result then
begin
disp:= Dispatch;
Result:= disp = nil;
end;
end;
Jackson_GZ 2004-10-20
- 打赏
- 举报
activeElement从不会返回nil
benjiamen 2004-10-20
- 打赏
- 举报
对,应该用nil来比较
ttjacky 2004-10-20
- 打赏
- 举报
if WebBrowser.Document.activeElement <> nil then
Jackson_GZ 2004-10-20
- 打赏
- 举报
在Delphi中WebBrowser.Document.activeElement表示为
WebBrowser: TWebBrowser;
...
WebBrowser.OleObject.Document.activeElement
WebBrowser: TWebBrowser;
...
WebBrowser.OleObject.Document.activeElement
hottey 2004-10-20
- 打赏
- 举报
WebBrowser.Document.activeElement 是什么玩意，你用Assigned看看，也许不对！
