E
etu5
Unregistered / Unconfirmed
GUEST, unregistred user!
大家看看这个过程：
//需要Uses actives,mshtml
procedure TForm1.Button1Click(Sender: TObject);
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
begin
vv := VarArrayCreate([0, 0], varVariant); //这句代码什么意思阿？
vv[0]:=Memo1.Text; //不明白，为什么要用数组阿？
HTMLDocument := WebBrowser1.Document as IHTMLDocument2; //不明白
HTMLDocument.Write(PSafeArray(TVarData(vv).VArray)); //不明白
// HTMLDocument.charset := 'gb2312';
HTMLDocument.Close;
end;
谁能把上面的代码解释一遍给偶阿？
要具体点 偶是粉不明白这些函数是干什么用的……拜托各位高手了！！
偶是个初学者 什么都不懂 恳请各位富翁高举贵手狂点键盘 谢谢^^*
偶问题太多 也没多少分了……拜托各位了 最后一点分了
//需要Uses actives,mshtml
procedure TForm1.Button1Click(Sender: TObject);
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
begin
vv := VarArrayCreate([0, 0], varVariant); //这句代码什么意思阿？
vv[0]:=Memo1.Text; //不明白，为什么要用数组阿？
HTMLDocument := WebBrowser1.Document as IHTMLDocument2; //不明白
HTMLDocument.Write(PSafeArray(TVarData(vv).VArray)); //不明白
// HTMLDocument.charset := 'gb2312';
HTMLDocument.Close;
end;
谁能把上面的代码解释一遍给偶阿？
要具体点 偶是粉不明白这些函数是干什么用的……拜托各位高手了！！
偶是个初学者 什么都不懂 恳请各位富翁高举贵手狂点键盘 谢谢^^*
偶问题太多 也没多少分了……拜托各位了 最后一点分了