Daten einer Tabelle in eine TComboBox einlesen?

[Sharky]

Zitat von smart:

Ich möchte gern alle Daten eines Feldes von einer Tabelle in eine TComboBox einlesen. Wie machtman das?

Hai Heike,

Du musst einfach durch alle Einträge der Tabelle gehen und den Feldinhalt den Items der ComboBox hinzufügen.
Wenn Du in der Tabelle auch ein ID-Feld hast und dieses für weitere Verknüpfungen benötigst kannst Du diese über ein Typcasting auf ein TObject an den Eintrag knüpfen.

Delphi-Quellcode:

procedure TForm1.btn_FillComboBoxClick(Sender: TObject);
var
  inhalt : string;
  id     : integer;
begin
  ComboBox1.Clear;
  with ABSTable1 do
  begin
    First;
    while not (Eof) do
    begin
      inhalt := FieldByName('feldname').AsString;
      id := FieldByName('idfeld').AsInteger;
      ComboBox1.Items.Add(inhalt);
//      ComboBox1.Items.AddObject(inhalt,TOBject(id)); // Mit ID-Feld
      Next;
    end;
  end;
end;