DBlistbox ?

[marabu]

Hier eine mögliche Vorgehensweise:

Delphi-Quellcode:

procedure TForm1.TableAfterPost(DataSet: TDataSet);
begin
  with DBComboBox do
    if Items.IndexOf(Field.AsString) < 0 then
      Items.Add(Field.AsString);
end;

Die Eigenschaft Sorted der ComboBox sollte dabei TRUE sein.

marabu

[Vader]

ja, aber wie bekomme ich den string rüber in die DBListbox ?
mfg vader

[mkinzler]

Genauso, wie bei der ComboBox also

Delphi-Quellcode:

procedure TForm1.TableAfterPost(DataSet: TDataSet);
begin
  with DBListBox do
    if Items.IndexOf(Field.AsString) < 0 then
      Items.Add(Field.AsString);
end;

da beide Komponenten eine Eigenschaft Items vom Typ TStrings haben.

[tr909]

Ich hatte das gleiche Problem, ich habs mit ner Jv -Komponente gelöst (TJvDBLookupComboEdit)

Die Items habe ich in einer extra tabelle in der tb gespeichert und die übernahme von neuen werten in die Tabelle über das OnExit-Event gesteuert

Die ComboBox hat den Namen cbxAnr, in der tabelle steht im Feld typ der jeweilige Wert

Code:

procedure TfrmPerson.cbxAnrExit(Sender: TObject);
begin
  if not Data.tblAnrede.Locate('anrede',cbxAnr.Text,[]) then
    Data.tblAnrede.InsertRecord([cbxAnr.text]);
end;

K.A. ob das sehr elegant ist, aber es funktioniert prima.

Gruß
tr909