var <br>i:integer;<br>while not clientdatasetpid.eof do<br>begin<br> clientdataset.close;<br> ClientDataSet1.Params.ParamByName('pid').Value:=pid;<br> clientdataset.open;<br> for i:=0 to clientdataset.recordcount -1 do<br> begin<br> clientdataset.applyupdate(0);<br> end;<br> clientdatasetpid.next;<br>end;