Feld in DBComboBox auf Unique überprüfen und eintragen

[mkinzler]

Versuch es mal so:

Delphi-Quellcode:

procedure TMain.FormShow(Sender: TObject);

begin
  DataModule1.ZQuery3.First; // First Dataset
  while not DataModule1.ZQuery3.Eof do 
  begin
    if DBCoEdLOCATION.Items.IndexOf( DataModule1.ZQuery3LOCATION.Value) > -1 then
    begin
      // Set new Entry into the DBComboBox
 
      DBCoEdLOCATION.Items.Add(DataModule1.ZQuery3LOCATION.Value);
    end;
    DataModule1.ZQuery3.Next;    
  end;
end;