database - 在运行时更改参数时刷新查询

Question

我的程序假设根据组合框中的选定值过滤 ListView 中的结果。问题:修改参数后listview没有刷新。

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

我已经尝试过 FDQuery1.refresh 但没有成功。

Listview 和参数在设计时工作正常。所选文本也存在。运行程序时没有出现错误消息，只是没有刷新。

Answer 1

像这样吗？

  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;