1

我目前动态创建了两个 TLabels 和一个 TEdit，将它们命名为 LblDesc+i、EdtAmount+i 和 LblUnit+i - 其中 i 是一个整数，每次添加这 3 个元素时我都会迭代一个。元素中的数据仅用于模拟目的。我现在的问题是删除三个对象。我试过免费和FreeAndNil，一点运气都没有。任何帮助是极大的赞赏。

procedure TForm1.BtnAddClick(Sender: TObject);
begin
  LblDesc := TLabel.Create(Self);
  LblDesc.Caption := 'Item '+IntToStr(i);
  LblDesc.Name := 'LblDesc'+IntToStr(i);
  LblDesc.Left := 16;
  LblDesc.Top := 30 + i*30;
  LblDesc.Width := 100;
  LblDesc.Height := 25;
  LblDesc.Parent := Self;

  EdtAmount := TEdit.Create(Self);
  EdtAmount.Text := IntToStr(i);
  EdtAmount.Name := 'EdtAmount'+IntToStr(i);
  EdtAmount.Left := 105;
  EdtAmount.Top := 27 + i*30;
  EdtAmount.Width := 60;
  EdtAmount.Height := 25;
  EdtAmount.Parent := Self;

  LblUnit := TLabel.Create(Self);
  LblUnit.Caption := 'Kg';
  LblUnit.Name := 'LblUnit'+IntToStr(i);
  LblUnit.Left := 170;
  LblUnit.Top := 30 + i*30;
  LblUnit.Width := 50;
  LblUnit.Height := 25;
  LblUnit.Parent := Self;

  i := i+1;
end;

procedure TForm1.BtnRemoveClick(Sender: TObject);
begin
  //Delete

end;
4

3 回答 3

4

过去，我遇到了与删除某些组件相关的问题，我已经解决了将父组件设置为的问题，nil但应该不再是这种情况，因为TControl's 的析构函数（如果被调用）已经完成了这项工作。

应该通过简单地释放它来删除该组件。

LblUnit.Free;

如果您需要按名称查找组件，请使用System.Classes.TComponent.FindComponentComponents或在列表上进行迭代。

for i := ComponentCount-1 downto 0 do begin
  if Components[i].Name = 'LblUnit'+IntToStr(i) then begin
    //TControl(Components[i]).Parent := nil; {uncomment if you have the same issue I've had}
    Components[i].Free;
  end;
  . . .  
end;

编辑

如果i用于组件名称构造的索引'LblUnit'+IntToStr(i)不在范围内[0..ComponentCount-1]，则必须相应地修改索引。

于 2016-02-17T10:48:15.507 回答
0

要删除动态创建的组件，您必须对它有有效的引用。

您可以组织自己的数组或列表来保存您的对象，或者使用现有的列表，例如 -Form.Components[]它包含所有者为 的对象Form。

在第二种情况下，您必须FindComponent按名称查找所需的对象，或者遍历Components[]并搜索具有某些功能（名称、类类型、标签等）的组件

于 2016-02-17T10:53:30.117 回答
0

最终奏效的答案是这样的：

procedure TForm1.BtnRemoveClick(Sender: TObject);
var
  j: Integer;

begin
  for j := ComponentCount-1 downto 0 do begin
    if Components[j].Name = 'LblDesc'+IntToStr(i-1) then begin
      TControl(Components[j]).Parent := nil;
      Components[j].Free;
    end;
  end;
end;
于 2016-02-17T14:19:22.070 回答