遍历两个panel上的控件

[w84271765]

遍历两个panel上的控件

传入参数值为 0 时，遍历2个Panel

传入参数值为 1 时，遍历1个Panel

怎么写一个通用的过程？

for i := 0 to Panel[i].ComponentCount - 1 do
begin
if Panel[i].Components[i] is Edit then begin
if (Panel[i].Components[i] as Edit).Properties.ReadOnly = true then
Edit(Self.Components[i] as TcxDBTextEdit).Properties.ReadOnly := False;
end;
end;

//Panel[i] 类似

[广州佬]

procedure EComponents(const x:integer=0);
var i,j:integer;
    Panel:array of Tpanel;
begin
  setlength(Panel,2);
  Panel[0]:=Form1.Panel1;//假定 Panel1 在 Form1 中
  Panel[1]:=Form1.Panel2;//假定 Panel2 在 Form1 中
  for j:=0 to 1-x do begin
    for i := 0 to Panel[j].ComponentCount-1 do begin
      if Panel[j].Components[i] is TEdit then begin
        if (Panel[j].Components[i] as TEdit).Properties.ReadOnly then
          //......
        end;
      end;
    end;
  end;
end;

[广州佬]

调用时：
EComponents;//遍历2个Panel
EComponents(1);//遍历1个Panel

[广州佬]

begin、end没配对，勘正下：

procedure EComponents(const x:integer=0);
var i,j:integer;
    Panel:array of Tpanel;
begin
  setlength(Panel,2);
  Panel[0]:=Form1.Panel1;//假定 Panel1 在 Form1 中
  Panel[1]:=Form1.Panel2;//假定 Panel2 在 Form1 中
  for j:=0 to 1-x do begin
    for i := 0 to Panel[j].ComponentCount-1 do begin
      if Panel[j].Components[i] is TEdit then begin
        if (Panel[j].Components[i] as TEdit).Properties.ReadOnly then begin
          //......
        end;
      end;
    end;
  end;
end;

[kaikai_kk]

参数改为TPanel,直接传Panel更好识别

procedure SetPnlCtrl(Pnl:TPanel);
var i:integer;
begin
  for i := 0 to Pnl.ControlCount-1 do
  begin
    if Pnl.Controls[i] is Edit Then 
    begin
      ...
    end;
  end;
end;