Hallo,
vor einigen Tagen gab es die Frage mit dem Titel "Beliebig viele Editfelder erzeugen". Nun beschäftige ich mich gerade mit dem Tutorial "Datenbanken" aus dem "Delphi Treff".
Bei den Grundsätzen zur Datenbankentwicklung gibt es die Regel, das das Datenbankprogramm unabhängig von der konkreten Datenstruktur sein muss. Deshalb komme ich wieder auf die Frage der beliebig vielen Edifelder zurück.
Gibt es einen möglichst eleganten Weg, im Dataset das aktuelle Feld zu finden, das einem DBEdit dann zuzuweisen wäre. Zunächst mal in der Reihenfolge der Felder, wie sie physich in der Datenbank stehen?
Im Dataset gibt es die Eigenschaft Fields['Feldname']. Ich brauche aber eher eine Eigenschaft Fields[Index]: Typ des Datenfeldes, wie es der DBEdit-Komponente zu übergeben ist. Hab ich in der Delphi Hilfe die passende Eigenschaft übersehen? Einer meiner Computerfreunde hat das Buch "Delphi für Kids", die Ausgabe mit Delphi 3. Dort war ein Datenbankexperte dabei, der solche Eingabemasken automatisch erzeugen konnte. Die Programmierer von Delphi müssen also auch einen effizienten Weg gefunden haben, diese Maske von der Datenstruktur abhängig, automatisch zu erzeugen. Wie würdet Ihr das machen. Bisher habe ich das so gelöst:
Delphi-Quellcode:
procedure TForm1.CreateMask;
var
edx: Integer;
idx: Integer;
topy: Integer;
leftx: Integer;
edit: TEdit;
begin
topy := 3; leftx := 10;
if ClientDataSet.Active then
for idx := 0 to ClientDataSet.FieldCount - 1 do begin
edx := FControls.Add(TEdit.Create(self));
FControl := FControls.Items[edx];
if FControl is TEdit then
begin
edit := TEdit(FControl);
edit.Top := topy;
edit.Left := leftx;
edit.Parent := MaskBox;
inc(topy, edit.Height + 3);
end;
end;
end;
Mit Stringliste statt TObjectList könnte das so aussehen:
Delphi-Quellcode:
procedure Tdbmain.CreateMask;
var
FieldNum: Integer;
EditIdx: Integer;
Field: TStrings;
FieldName: String;
TopPos,LeftPos: Integer;
begin
TopPOs := 15; LeftPos := 40;
Field := TStrings.Create; //hier sind die Felnamen gespeichert, für Labels verwendbar
dbf.Fields.GetFieldNames(Field);
for Fieldnum := 0 to dbf.FieldCount-1 do
begin
Editidx := FEdits.AddObject('',TLabeledEdit.Create(self));
FCtrl := FEdits.Objects[EditIdx];
if FCtrl is TLabeledEdit then
begin
FEdit := TLabeledEdit(FCtrl);
FEdit.Left := 40;
FEdit.Top := TopPos;
//FEdit.Text := dbf.FieldByName(Field[FieldNum]).AsString;
FEdit.Text := dbf.Fields.Fields[Fieldnum].AsString;
//FEdit.DataSource := DataSource;
FEdit.Parent := self;
end;
Inc(TopPos, FEdit.Height + 5);
end;
Field.Free;
end;
Nun will ich statt des TEdit ein TDBEdit verwenden, welchem ich das richtige Datenfeld zuordnen will. Welche Lösung(en) gibt es da.