这段delphi 代码怎么简化？

panel2.left:=panel2.left+1;
panel1.left:=panel1.left+1;
panel3.left:=panel3.left+1;
panel4.left:=panel4.left+1;
panel5.left:=panel5.left+1;
panel6.left:=panel6.left+1;
panel7.left:=panel7.left+1;

追问：……请给出示范代码

答案：
以下代码是不是你想要的实现
procedure TForm1.btn1Click(Sender: TObject);
var
  Li_Point : Integer;
  L_Obj : TObject;
begin
  for Li_Point := 1 to 7 do
  begin
    L_Obj := Self.FindComponent('panel' + IntToStr(Li_Point));
    if L_Obj <> nil then
      TPanel(L_Obj).Left := TPanel(L_Obj).Left + 1;
  end;
end;
将他们定义为一个集。运用集的运算即可。

上一个：DELPHI中奇怪的FOR语句
下一个：Delphi 找出最长的单词