Combobox bleibt leer

[superstar025]

Hallo ich habe eine combobox wo mehrere artikel drin stehen.
ich wähle hier einen arikel aus und lösche ihn
danach wähle ich den nächsten artikel aus der combobox aus jedoch steht der gelöschte artikel immernoch drin woran liegt das.
combobox. clear löscht alles
es sollen auch nur noch wirklich die angezeigt werden die auch tatsächlich noch in der tabelle stehen und nach dem ein artikel auch gelöscht wurde soll dies aktualisiert werden.

wie mach ich das??

[superstar025]

bisher habe ich es so versucht

Delphi-Quellcode:

combobox1.clear;
query1.ParamByName('DISP_NR').AsString := form8.ComboBox1.Text;
     query1.ParamByName('gueltig_ab').AsString := form8.maskedit3.Text;
     query1.Open;
     while not query1.eof do begin
     ComboBox1.Items.Add(query1.Fields[0].asstring);
     query1.Next;

jedoch wird das feld komplett gelöscht und nicht wieder aufgefüllt!!

mfg matthias

[ibp]

wie wäre es mit ein wenig code?

[superstar025]

nachdem ich auf button zum löschen geklickt habe führe ich folgenden code aus

Delphi-Quellcode:

combobox1.clear;
query1.ParamByName('DISP_NR').AsString := form8.ComboBox1.Text;
     query1.ParamByName('gueltig_ab').AsString := form8.maskedit3.Text;
     query1.Open;
     while not query1.eof do begin
     ComboBox1.Items.Add(query1.Fields[0].asstring);
     query1.Next;

[ibp]

^da warst du wohl schneller!

Code:

query1.first

fehlt!

[superstar025]

bringt nicht den erwarteten erfolg bleibt alles so wie vorher nur das
die combobox nicht leer bleibt

[Dani]

Hi, welchen Style hat die Combobox? csDropDown? Falls ja, versuche mal am Ende deiner Routine die Eigenschaft ItemIndex (z.B. auf 0) zu setzen bzw. stelle den Style auf csDropDownList.

[superstar025]

eine zwischen frage
an welche stelle muss das query1.first genau hin??

[ibp]

Zitat von superstar025:

nachdem ich auf button zum löschen geklickt habe führe ich folgenden code aus

Delphi-Quellcode:

     combobox1.clear;
     query1.ParamByName('DISP_NR').AsString := form8.ComboBox1.Text;
     query1.ParamByName('gueltig_ab').AsString := form8.maskedit3.Text;
     query1.Open;
     if not query1.eof then
     begin
       query1.first;  // ersten datensatz holen
       while not query1.eof do begin
         ComboBox1.Items.Add(query1.Fields[0].asstring);
         query1.Next;
       end;
     end;