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???