Question

delphi动态创建edit的问题.求大神帮助

procedure TForm1.Button1Click(Sender: TObject);
var
i,m,n,p:integer;
begin
m:=20;
n:=strtoint(e1.Text);
setlength(editm,n);
for i:=0 to n-1 do
begin
editm[i]:=tedit.Create(self);
editm[i].Parent:=panel1;
editm[i].Width:=120;
editm[i].Height:=20;
editm[i].Left:=0;
editm[i].Top:=0+m;
editm[i].Name:= 'edit'+inttostr(i);
editm[i].Text:= 'edit'+inttostr(i);
editm[i].Visible:=true;
m:=m+20;
end;
end;

看看我这个问题：我按一下button键后，动态创建一组edit，但是我按第二次时就出错。怎么改？？？
我知道用editm[i].free;
但是，怎么把这句加上？

Answer 1

procedure TForm2.Button1Click(Sender: TObject);
var
  i,m,n,p:integer;
  editm: array of TEdit;
begin
  m:=20;
  n:=strtoint(e1.Text);
  setlength(editm,n);
  //清除掉之前添加的edit
  for i:=Panel1.ControlCount-1 downto 0  do
    Panel1.Controls[i].Free;

  for i:=0 to n-1 do
  begin
    editm[i]:=tedit.Create(self);
    editm[i].Parent:=panel1;
    editm[i].Width:=120;
    editm[i].Height:=20;
    editm[i].Left:=0;
    editm[i].Top:=0+m;

    editm[i].Name:= 'edit'+ inttostr(i);
    editm[i].Text:= 'edit'+inttostr(i);
    editm[i].Visible:=true;
    m:=m+20;
  end;
end;

Answer 2

加个循环，然后写上editm[i].free;就行了。

Answer 3

在你的for语句前面加一段。

for i := 0 to Panel1.ControlCount-1 do
begin
if Assigned(editm[i]) then
begin
FreeAndNil(editm[i]);
end;
end;