组件数组

var
  Form1: TForm1;
  SArrayEdit : array[0..4] of TEdit; //静态
  DArrayEdit : array of TEdit; //动态

implementation

把组件声明成数组进行循环操作，省去了大量语句

SArrayEdit[i].clear; //除去TEdit.Text值

SetLength(DArrayEdit,4); //设置动态数组长度，动态数组用之前 要设定其长度