Komponenten dynamisch erzeugen = ok, free = nicht ok

[torud]

Hallo Leute!

Ich habe die Suche bedient und einiges zu diesem Thema gefunden. Leider hat es nichts gebracht.

Mit folgender Prozedure erzeuge ich auf einer Scrollbox dynamisch DBEdits und Labels, nachdem ich eine Datenbank geladen habe. Nicht unbedingt schön, aber es funzt.

Delphi-Quellcode:

procedure TForm1.TrytoCreateDBFields; //dynamisches erzeugen
var
  i:integer;
  DBEdit:TDBEdit;
  Labels:TLabel;
  scr_dbfields:TScrollBox;
begin
  scr_dbfields.Free;
  scr_dbfields := TScrollbox.Create(self);
  scr_dbfields.Parent:=TabSheet7;
  scr_dbfields.Align:=alClient;

  with scr_dbfields do begin
   for i:=0 to Table1.FieldCount-1 do
     begin
       case Table1.Fields.Fields[i].DataType of
         ftString,ftInteger, ftAutoInc, ftSmallint, ftFloat,ftWord :
         begin
          //label erzeugen
          Labels:= TLabel.Create(self);
          Labels.Parent := scr_dbfields;
          Labels.Left :=10;
          Labels.Top  := i * 30;
          Labels.Caption:=Table1.FieldList.Strings[i];
          //dbfeld erzeugen
          DBEdit:= TDBEdit.Create(self);
          DBEdit.Parent := scr_dbfields;
          DBEdit.Left :=100;
          DBEdit.Top  := i * 30;
          DBEdit.DataSource:=DataSource1;
          DBEdit.Name:=Table1.FieldList.Strings[i];
          DBEdit.DataField:=Table1.FieldList.Strings[i];
        end;
       end;
     end;
  end;
end;

Delphi-Quellcode:

procedure TForm1.DestroymyDBKompos; //dynamisches freigeben
var
  i:integer;
begin
i:= 0;
  while i<scr_dbfields.parent.ComponentCount do
    if (scr_dbfields.parent.Components[i] is TDBEdit) or ((scr_dbfields.parent.Components[i] is TLabel)) then scr_dbfields.parent.Components[i].Free
    else Inc(i);
end;

Wenn ich nun auf eine FileListBox doppelt klicke und versuche eine neue DB zu öffnen erhalte ich immer wieder eine Fehlermeldung.

Delphi-Quellcode:

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
        Table1.Active:=False;
        Table1.DatabaseName:=DirectoryListBox1.Directory;
        Table1.TableName:=FileListBox1.Items.Strings[FileListBox1.ItemIndex];
        DestroymyDBKompos;  //zerstören der kompos
        //scr_dbfields.Free;
        ShowMessage('kaput');
        Table1.Active:=True;
        ed_header.Text:=FileListBox1.Items.Strings[FileListBox1.ItemIndex];
        TrytoCreateDBFields; //neues generieren der kompos
end;

Die Prozedur DestroymyDBKompos soll sich darum kümmern, dass die oben erzeugten Komponenten wieder freigeben werden, damit wieder neue komponenten erzeugt werden können.

Das Ganze funktioniert nur einmal nach dem Programmstart. Wenn ich dann eine andere DB laden willerhalte ich immer wieder eine Fehlermeldung, dass irgendein DB-Feld nicht gefunden wurde. Das passiert aber nur, wenn ich DestroymyDBKompos oder/und TrytoCreateDBFields versuche zu benutzen.

Was mache ich denn da falsch???