Delphi TClientDataset查找定位功能

if CDSUserFunc.Locate('mod_id;res_id', VarArrayOf([UserFunc.MOD_ID, UserFunc.RES_ID]), [loCaseInsensitive]) then

begin

CDSUserFunc.Delete;

end;

if not CDS_UserDict.Locate('DICT_ID', strDictId, [loCaseInsensitive]) then

begin