ComboBoxen mit Daten füllen

[Jack23]

Hallo

Ich bekomme es einfach nicht hin.

Ich möchte gerne ein ComboBox mit Werten aus der DB füllen.

Ich habe ein leeres Form mit einer ADOQuery drauf. Wie mache ich das am besten?

[DeddyH]

Delphi-Quellcode:

ComboBox.Items.Clear;
ADOQuery.First;
while not ADOQuery.EOF do
  begin
    ComboBox.Items.Add(ADOQuery.FieldByName(Feldname).AsString);
    ADOQuery.Next;
  end;

Sollte so gehen (ungetestet).

[Jack23]

Ok soweit habe ich das schon. Nur bekomme ich die Meldung TComboBox enthält kein Element namens Items

[Progman]

genau:

Delphi-Quellcode:

    Adressen.First;
    for i:=0 to Adressen.RecordCount - 1 do begin
      s :=Adressen.FieldByName('NACHNAME').Value+', '+
          Adressen.FieldByName('VORNAME').Value;
      ComboBox.Items.Add(s);
      Adressen.Next;
    end;
    Adressen.First;

so mach ichs mit 'ner Adress-Table
hmm... TComboBox hat aber Items... (??)

[Jack23]

Hm es werden keine Daten eingefügt.

Ich habe die Procedure jetzt unter onSelect der ComboBox eingetragen.

[marabu]

Hallo,

wenn die Komponente mit dem Namen ComboBox keine Eigenschaft Items besitzt, dann ist der Name wohl etwas irreführend.

Welchen Typ hat denn diese ominöse Komponente?

Delphi-Quellcode:

procedure LoadItems(items: TStrings; ds: TDataSet; const fieldName: string);
var
  bm: TBookmark;
begin
  with ds do
  begin
    bm := GetBookmark;
    DisableControls;
    First;
    items.Clear;
    while not Eof do
    begin
      items.Add(FieldByName(fieldName).AsString);
      Next;
    end;
    GotoBookmark(bm);
    FreeBookmark(bm);
    EnableControls;
  end;
end;

Grüße vom marabu

[Jack23]

Oh es geht jetzt.

Ich hatte vergessen die Query zu aktivieren...Danke!

[Progman]

Schreib doch diese Füllgeschichte in eine eigene Proc:

Delphi-Quellcode:

procedure TfrmData.FillListe;
var i: Integer; s: String;
begin
  CB.Clear; //Combobox erstmal löschen
  if Adressen.RecordCount > 0 then begin
    Adressen.First;
    for i:=0 to Adressen.RecordCount - 1 do begin
      s :=Adressen.FieldByName('NACHNAME').Value+', '+
          Adressen.FieldByName('VORNAME').Value;
      CB.Items.Add(s);
      Adressen.Next;
    end;
    Adressen.First;
  end;
end;

die ruft man im FormShow oder irgendwann auf, wenn die Daten geladen sind.