Komponenten dynamisch erzeugen = ok, free = nicht ok

[Orbmu2k]

versuchs mal so ... (ungetestet)

Delphi-Quellcode:

procedure TForm1.DestroymyDBKompos; //dynamisches freigeben
var
  i:integer;
begin
  for i := scr_dbfields.parent.ComponentCount-1 downto 0 do
    if (Assigned(cr_dbfields.parent.Components[i]))
      and ((scr_dbfields.parent.Components[i] is TDBEdit)
        or (scr_dbfields.parent.Components[i] is TLabel))
          then
            FreeAndNil(scr_dbfields.parent.Components[i]);
end;