Aktualisierungsabfrage beim Ändern von Parametern zur Laufzeit

Question

Mein Programm nimmt an, Ergebnisse in einer Listenansicht entsprechend dem ausgewählten Wert in den Comboboxen zu filtern. Problem: Listenansicht wird nach der Änderung des Parameters nicht aktualisiert.

procedure TForm1.ComboBox1Change(Sender: TObject); 
begin 
    //FDQuery1.ParamByName('paramA').AsString:=Combobox1.Selected.Text; 
    FDQuery1.Params[0].AsString:= Combobox1.Selected.Text; 
    FDQuery1.open; 
end; 

Ich versuchte bereits FDQuery1.refresh ohne Erfolg.

Die Listview und Parameter funktioniert zur Entwurfszeit. Der ausgewählte Text existiert ebenfalls. Beim Ausführen des Programms wird keine Fehlermeldung angezeigt, nur keine Aktualisierung.

Answer 1

etw so?

FDQuery1.Close; 
    try 
    ListBox1.Clear; 
    FDQuery1.ParamByName('Param1').AsString:= Combobox1.Selected.Text; 
    FDQuery1.Prepare; 
    FDQuery1.Open; 
    while not FDQuery1.Eof do 
    begin 
     ListBox1.Items.Add(FDQuery1.FieldByName('Field1').AsString); 
     FDQuery1.Next; 
    end; 
    finally 
    FDQuery1.Close; 
    end;