locate中使用variant

利用locate构造多字段查询，采用variant很方便，简介如下，

//构造查询多字段，例如'编号;姓名'形式

aLookField :=  FieldByName ('关键字1').AsString + ';'+FieldByName ('关键字2').AsString+ ';'+FieldByName ('关键字3').AsString ;
repeat //在循环中可能需要清除末尾分号

   if RightStr (aLookField, 1) = ';' then
   aLookField := copy (aLookField, 1, Length(aLookField) - 1);
until RightStr (aLookField, 1) <> ';';

// 创建查询字段值数组
varArr := VarArrayCreate ([0, 2], varVariant);

// 读要源表中字段的值
varArr := Dm.qAccountListByHis[aLookField];

在另一表中查询
if Dm.qAccountListByBank.Locate (aLookField, varArr, []) then

详见：电子对账程序-DefineBusinessTypeFrm页面-对账按钮功能。

转载于:https://www.cnblogs.com/Biyuanguang/p/4293813.html