delphi遍历取消选择并获取取消后的值

 if key = pk_rightArrow then
      begin
        CancleYhq(cdsCoupon.FieldByName('RowNo').Value, cdsCoupon.FieldByName('coupName').Value, cdsCoupon.FieldByName('coupamt').Value);
      end;
procedure TFrmSelectCoupon.CancleYhq(RowNoChose: string; coupNameChose: string; coupamtChose: string);
var
  I, j: Integer;
  F: TFrmSelectCoupon;
begin
  with cdsCouponChose do
  begin
    while not Eof do
    begin
     if cdsCouponChose.FieldByName('RowNoChose').Value = StrToInt(RowNoChose) then
       begin
         Delete;
       end;
    end;
    if cdsCouponChose.FieldByName('RowNoChose').Value = StrToInt(RowNoChose) then
    begin
      chooseStr := StringReplace(chooseStr,RowNoChose,'',);
    end
  end;

end;

场景:上下两个列表框,已将通过按键选择将上列表的内容后显示在下列表框,现需通过右键取消选择,上述代码能实现取消一条页面就删除一条,但是取消选择后chooseStr还是取消之前的数据,使用StringReplace方法直接替换字符串编译报错not enough actual parameters上述写法应该如何改,怎么通过循环遍历把每取消后的结果赋值到chooseStr里
烦请帮忙解答,谢谢各位

参考GPT和自己的思路：好的，让我来回答你的问题。

首先，关于你使用StringReplace方法编译报错的问题，是因为你在调用该方法时，缺少最后一个参数，即替换后的字符串。所以需要加上替换后的字符串参数，例如：

chooseStr := StringReplace(chooseStr, RowNoChose, '', []);

其中[]表示替换选项，默认为[]。

然后，关于如何遍历取消选择后的结果并更新chooseStr的值，你可以在while循环中记录每次删除的RowNoChose值，并将其从chooseStr中剔除。具体代码如下：

procedure TFrmSelectCoupon.CancleYhq(RowNoChose: string; coupNameChose: string; coupamtChose: string);
var
  I, j: Integer;
  F: TFrmSelectCoupon;
  removedRowNo: string; // 记录每次删除的RowNoChose值
begin
  with cdsCouponChose do
  begin
    while not Eof do
    begin
      if cdsCouponChose.FieldByName('RowNoChose').Value = StrToInt(RowNoChose) then
      begin
        removedRowNo := RowNoChose;  // 记录删除的RowNoChose值
        Delete;
      end
      else
      begin
        Next;
      end;
    end;

    // 从chooseStr中剔除删除的RowNoChose值
    chooseStr := Trim(StringReplace(',' + chooseStr + ',', ',' + removedRowNo + ',', ',', [rfReplaceAll]));
  end;
end;

以上是我对你问题的回答，希望能够帮到你。如果还有不清楚的地方，可以再继续问我。