请教--在窗体的panel上有多个edit控件，本人想用一个循环清空,用何属性?如何写?

Question

还要补充一点:在pagecontrol其它页中的edit不能同时清空.

Answer 1

for iCount := 0 to ComponentCount - 1 do
begin
    if Components[iCount] is TEdit then
        if TEdit(Components[iCount].Parent = Panel1 then
             TEdit(Components[iCount].Text := '';
end;

Answer 2

Liusp(夜深千帐灯)　老兄：
TEdit(Components[iCount].Parent）好象没有它的parent属性
求助
 

Answer 3

应该是
TEdit(Components[iCount]).Parent）
少了一个")"

Answer 4

其实不一定要TEdit(Components[iCount]).Parent）这样做，如果你的panel上的edit的名字是有规律的，可以用这样的方法做：
 for  i := 1 to 10 do
  begin
    TEdit(FindComponent('Edit'+ inttostr(I))).Text := '';
  end;这样就不用去遍历所有的孔件，而且通过传递i这个参数，可以实现对其他panel上的edit控件的控制

Answer 5

楼上各位，这样不行，它说没有parent这个属性
for iCount := 0 to ComponentCount - 1 do
begin
    if Components[iCount] is TEdit then
        if TEdit(Components[iCount].Parent) = Panel1 then
            TEdit(Components[iCount].Text := '';
end; 

Answer 6

回复人：　Liusp(夜深千帐灯)　(2001-12-22 9:48:21)  得0分 
for iCount := 0 to ComponentCount - 1 do
begin
    if Components[iCount] is TEdit then
        if TEdit(Components[iCount].Parent = Panel1 then
            TEdit(Components[iCount].Text := '';
NO NO 
for iCount := 0 to ComponentCount - 1 do
begin
  IF (COMPONENTS[iCount] is Tedit) then
      Tedit(components[icount]).text;=''
end
 

Answer 7

cobi(我是小新)　一定要把edit按一定的顺序来命名吗？

Answer 8

要方便控制当然就需要了，而且按顺序命名排列的话，可以吧上面的代码扩展成一个通用的过程，适用于你其他的panel

Answer 9

cobi(我是小新)　因为我窗体上的edit比较多，为了便于操作，我都按照它的功能进行命名的。
如果按顺序就增加了不少麻烦，请问还有别的好办法吗？

Answer 10

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Panel1.ControlCount - 1 do
    if Panel1.Controls[I] is TEdit then
      TEdit(Panel1.Controls[I]).Text := '';
end;

Answer 11

zswang(伴水)(被黑中) 老兄
你知道吗？本人的panel1是放在pagecontrol中的第一页上，
而pagecontrol则是放在form上。
帮帮我

Answer 12

to yxjjx(孤行者):不能吗？你试没有，我看看你的代码

Answer 13

zswang(伴水)(被黑中) 谢谢你帮我解决了
现在就放分