请问WebBrowser1.OleObject.document.all.item(Edit1.Text, 0)为什么不可以用变量呢？

如题：语句
WebBrowser1.OleObject.document.all.item('id', 0);里面的参数‘id’,一定要是常量吗 ？能否通过变量赋值 ？ 比如：WebBrowser1.OleObject.document.all.item(Edit1.Text, 0); 行吗 ？谢谢

解决方案 »

  1.   

    WebBrowser1.OleObject.document.all.item(Edit1.Text, 0);
    改为
    WebBrowser1.OleObject.document.all.item(s, 0);其中var s:string;
      

  2.   

        s:='id';
        o := WebBrowser1.OleObject.document.all.item(s, 0);
        o.value := '111111111';    出错
      

  3.   

    var 
      o:OleVariant; 
      sPath:pchar; 
    begin 
    o   :=   WebBrowser1.OleObject.document.all.item( 'user_id ',0);       //找到登录用户名的输入框 
    o.value   :=   'TEST '; 
    o   :=   WebBrowser1.oleobject.document.all.item( 'password ',0);   //找到登录密码的输入框         }   { 
    o.value   :=   'TEST '; 
    o   :=WebBrowser1.oleobject.document.all.item( 'submit ',0);                     //或者用指定表单名称提交 o.Click;     //点击操作，对其它对象也可同样操作
      

  4.   

    这样出错：
      s:='id';
      o := WebBrowser1.OleObject.document.all.item(s, 0);
      o.value := '111111111';但这样就没问题：
      o := WebBrowser1.OleObject.document.all.item('id', 0);
      o.value := '111111111';
      

  5.   

    不知道为什么要这样做
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>无标题文档</title>
    </head><body>
    <table width="575" border="1" cellpadding="0" cellspacing="0">
      <tr>
        <td height="37"> <input id="test" type="text" name="textfield"></td>
      </tr>
      <tr>
        <td height="33"> <input type="text" name="textfield"></td>
      </tr>
      <tr>
        <td height="38"> <input type="text" name="textfield"></td>
      </tr>
      <tr>
        <td height="27"> <input type="text" name="textfield"></td>
      </tr>
      <tr>
        <td height="25"> <input type="text" name="textfield"></td>
      </tr>
    </table></body>
    </html>procedure TForm1.Button4Click(Sender: TObject);
    var
     o:OleVariant;
     s : pchar;
    begin
     s := 'test';
     o := WebBrowser1.OleObject.document.all.item(string(s),0);
     o.value := '2222222';
    end;
    测试通过
      

  6.   

    这样试一试
       o := WebBrowser1.OleObject.document.all.item(''+ edit1.text +'', 0);
       o.value := '111111111';
      

  7.   

    我刚才试了一试，可行！procedure TForm1.Button2Click(Sender: TObject);
    var
        o : Olevariant;
    begin
        o := web_list.OleObject.document.all.item(''+ edit2.text +'', 0);
        o.value := '111111111';
    end;