非常简单的问题？（关于数据库控件的）

procedure   TForm1.N3Click(Sender:   TObject);  
  var  
  i:integer;  
  begin  
    with   form2   do  
      begin  
        speedbutton1.caption:='新增';  
        speedbutton1.Enabled:=true;  
        speedbutton5.Enabled:=false;  
        showmodal;  
        i:=1;  
        for   i:=1   to   7   do  
        begin  
        dbedit[i].text:='';  
        end;  
      end;  
   
  end;  
   
  这样的i有意义吗？这样运用变量行不行啊？ 问题点数：20、回复次数：6Top

1 楼hymen1（小满）回复于 2001-10-09 11:21:21 得分 0

？？Top

2 楼zzllabc（抱朴子--清心释累，绝率忘情）回复于 2001-10-09 11:23:07 得分 0

不行!!Top

3 楼tikkypeng（千两狂死郎之天衣有缝）回复于 2001-10-09 11:27:20 得分 5

i:=1;没有意思～～去掉～～～  
   
  dbedit[i].text:=''  
  改成    
  FindComponent('DBEdit'+IntToStr(i))   as   TDBEdit.Text   :=   ''  
   
  Top

4 楼cobi（我是小新）回复于 2001-10-09 11:28:31 得分 10

i是没有意义的，因为dbedit的text属性不能通过这样的赋值进行清空。当其对应的数据集控件处于新增状态时，它会自动清空其内容。  
  另外，你的写法错了，如果要这样控制dbedit的话，应写为：  
  TDBedit(findcomponent('dbedit'   +   inttostr(i))).text   :=   'xxx';Top

5 楼liang_z（千山一刀之忍者神龟）回复于 2001-10-09 11:34:12 得分 5

我想你的ShowModal应该写在后面吧？！  
  （小新国际）的方法应该就可用了。  
  Top

6 楼hymen1（小满）回复于 2001-10-09 15:06:32 得分 0

谢谢各位大侠啦！！  
   
  给分  
  Top

相关问题

• dbedit
• speedbutton
• begin
• text

• 帖主：hymen1
• tikkypeng
• cobi
• liang_z

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载