我的窗体上有70个Edit控件，怎样判断它们的Text属性都不为空？难道要and +and 的一个一个加下去？(30分)

tripleh · 2003-10-15

我的窗体上有70个Edit控件，怎样判断它们的Text属性都不为空？难道要and +and 的一个一个加下去？

sanxiang · 2003-10-15

你是在同一个form？ 那样的话你可以取所有的edit控件来一次循环，每个循环作一次检查事件（每个edit的检查事件总是同一个函数名吧？）

onlyonekgx · 2003-10-15

self.Contorls

落木潇潇 · 2003-10-15

var flag:boolean; flag:=false; for i:=0 to controlcount-1 do  if controls.classname=TEdit then     if controls.text='' then flag:=true     else flag:=false;

cooler · 2003-10-15

同一个窗体中有70多个编辑框呀,厉害,不过楼上的方法可行.

bjaman · 2003-10-15

1。  那七十个Edit是动态加入的吗?--->>如果是动态加入的，就可以把它们存入一个数组，然后用一个For ... To 循环遍历这个数据组元素，就可以判断出哪一个的Text属性为空了。 2。  如果这些组件是你一个一个地搬上Form的，那就太笨了些。不过也很好遍历： var i : integer; begin  for i := 1 to Form1.ComponentCount - 1 do  begin   if Form1.Components is TEdit then     if TEdit(Form1.Components).Text = '' then       Showmessage('这个TEdit的Text为空：'+ Form1.Components.Name);  end; end

bjaman · 2003-10-15

上面写错一句，是for i := 0 to Form1.ComponentCount - 1 do

江南大米 · 2003-10-15

大概如此！     for i:=0 to ComponentCount-1 do       if Components is TEdit then       begin          with (Components as TEdit) do          begin             if (Components as TEdit).Text='' then             begin                showmessage('不能为空');                exit;             end;          end;       end;     end;

tripleh · 2003-10-15

不是动态加入的，只是放置了70个Edit控件！

wlmmlw · 2003-10-15

疯子的行为

bjaman · 2003-10-15

呵呵，建议你动态建立TEdit，你那样做太笨了，有人都要骂你是疯子了，呵呵呵^^^^^

sdw_7305 · 2003-10-15

精神可嘉

无头骑士 · 2003-10-15

下面是我的源码，直接调用就可以。  function TForm_luru.IsBlank(frm:Tpanel):Boolean;       var i:integer;        begin        result:=false;         for i:=0 to frm.ControlCount-1 do          begin          if (frm.Controls is TEdit) then            if (frm.Controls as TEdit).Text=''  then              begin               result:=true;//showmessage('不能为空！');               (frm.Controls as TEdit).SetFocus;              Break;             end;            end;       end;

bjaman · 2003-10-15

动态加入Tedit到窗体示例: procedure TForm1.Button1Click(Sender: TObject); var myEdit : array [1..70] of TEdit;     i, j, theTop , theLeft : integer; begin   for i := 1 to 70 do   begin     MyEdit := TEdit.Create(Owner);     MyEdit.Parent := self;     MyEdit.Width := 40;     MyEdit.Height := 20;   end;   theTop := 20;   for i := 0 to 6 do //7行   begin     theLeft := 20;     for j := 1 to 10 do  //10列     begin       MyEdit[i*10+j].Top := theTop;       MyEdit[i*10+j].Left := theLeft;       theLeft := theLeft + 60;       MyEdit.Visible := true;       MyEdit.Enabled := true;     end;     theTop := theTop + 50;   end; end;

oldsheep35 · 2003-10-15

改进一点： var flag:boolean; flag:=false; for i:=0 to Self.controlcount-1 do  if Components.classname=TEdit then     if Components.text='' then     begin      flag:=true;      Break;     end     else flag:=false;

duhai_lee · 2003-10-15

用COMPONENT  ，呵呵：）   楼上高手真多。

qq74 · 2003-10-15

bjaman的办法有问题

bjaman · 2003-11-03

动态加入Tedit到窗体示例: procedure TForm1.Button1Click(Sender: TObject); var myEdit : array [1..70] of TEdit;     i, j, theTop , theLeft : integer; begin   for i := 1 to 70 do   begin     MyEdit := TEdit.Create(Owner);     MyEdit.Parent := Self;     MyEdit.Width := 40;     MyEdit.Height := 20;   end;   theTop := 20;   for i := 0 to 6 do //7行   begin     theLeft := 20;     for j := 1 to 10 do  //10列     begin       MyEdit[i*10+j].Top := theTop;       MyEdit[i*10+j].Left := theLeft;       theLeft := theLeft + 60;       MyEdit[i*10+j].Visible := true;//呵呵,上面示例中此处数组下标手误！       MyEdit[i*10+j].Enabled := true;//现在这个程序可是运行通过的哦！     end;     theTop := theTop + 50;   end; end;

我的窗体上有70个Edit控件，怎样判断它们的Text属性都不为空？难道要and +and 的一个一个加下去？(30分)

tripleh

Unregistered / Unconfirmed

sanxiang

Unregistered / Unconfirmed

onlyonekgx

Unregistered / Unconfirmed

落木潇潇

Unregistered / Unconfirmed

cooler

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

tripleh

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

sdw_7305

Unregistered / Unconfirmed

无头骑士

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

oldsheep35

Unregistered / Unconfirmed

duhai_lee

Unregistered / Unconfirmed

qq74

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

Similar threads