Delete TEdit created at run time

Question

Delete TEdit created at run time

Navigation

#1 by (2 votes)
#2 by (0 votes)

0

In the click of the button I create some Edits ... So far everything works normally, but when I try to delete the edits created by clicking another button, not all are deleted.

Ex. I created 10 edits fields, when I click to delete all at once, only 5 are deleted. Here are the codes (inclusion and exclusion respectively):

for x := 0 to (NumReg -1) do
begin
  ArrayEdit[x] := TEdit.Create(Self);
  ArrayEdit[x].Parent := Self;
  ArrayEdit[x].Name := 'edtPreco'+ IntToStr(x+1);
  ArrayEdit[x].Left := 265;
  ArrayEdit[x].Top := 300 + x * 25;
end;

var Component: TComponent; 
begin 
  for Component in Self do 
    if Component is TEdit then
      TEdit(Component).Free;
end;

delphi delphi-xe8

asked by anonymous 08.08.2016 / 23:11

2 answers

How to decide what and how to perform the css structure of a responsive menu [closed] How to install Laravel 5 without using composer?

score 2 · Answer 1

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin
    If (Components[i] is TEdit) then
      TEdit(Components[i]).Destroy;
  end;
end;

score 0 · Answer 2

0

Try this:

while (Form1.ComponentCount > 1) do 
begin
  if (Form1.Components[0] is TEdit) then
    TEdit(Form1.Components[0]).Free;
end;

08.08.2016 / 23:25