with TObject.Create() do ... freigeben ?

[Christian Seehase]

Moin Madbrain,

Zitat von madbrain:

Eine Prozedur FreeAllObjectsWithoutName() z.B. die alle namenlosen Objekte freigibt, wäre ganz praktisch.

das könntest Du mit Objekten machen, die von TComponent abstammen, und bei denen Owner <> nil ist, indem Du durch das Array of Components des Owner durchgehst, und alle bei denen der Name = '' ist, free aufrufst.

Beispiel:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TLabel.Create(Form1) do begin
    caption := 'TEST';
    parent := Form1;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);

var
  i  : integer;
  tc : TComponent;

begin
  for i := ComponentCount-1 downto 0 do begin
    tc := Components[i];
    if tc.Name = '' then tc.Free;
  end;
end;