Delphi Locate函数[1] - 查询、定位 - Powered by Discuz! Archiver

爱思考的呆呆鱼 發表於 2019-7-8 17:00:00

Delphi Locate函数[1] - 查询、定位

Delphi TDataSet.Locate函数 - 查询、定位
使用ADO等数据控件的时候，经常会用到 locate 函数，在结果数据集中查询和定位，下面介绍一下：
原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;</pre>
</div>
Locate 方法的3个参数：
1、KeyFields //字段名称。单一字段，直接传入字段名称。多个字段条件查寻，字段名称以分号分隔每一个字段名称，例如：‘A1;A2;A3’ 2、KeyValues  //条件数值。类型 Variant，几乎可以代表任何的类型，可查整数、小数、字符串，或是布尔值的条件。同样，查寻一个条件数值，直接在参数位置传入。如果是以多个字段条件来查寻，
　　那么开发人员必须建立一个Variant数组，然后在这个数组中的每一个元素中指定条件数值，再传递Variant数组到这个参数中。至于Variant数组则可以使用VarArrayOf方法，或是使用VarArrayCreate方法来建立
　　例如：VarArrayOf( [ Name1,Name2 ] )
3、TLocateOptions //查询选项标准。例如：不分大小写查寻字符串数据，或以部分字符串数值来查寻数据（模糊查询）。两个参数类型：
<ul>
<li>loCaseInsensitive  不区分大小写查寻数据； </li>
<li>loPartialKey  以部分字符串查寻数据（模糊查询）。</li>
<li>原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Unit
DB
type
TLocateOption = (loCaseInsensitive, loPartialKey);
TLocateOptions = set of TLocateOption;　　</pre>
</div>
</li>
</ul>
单独使用：
<ul>
<li>[ loCaseInsensitive ]  不区分大小写，（关键字字段和关键字值的匹配不考虑大小写）</li>
<li>[ loPartialKey ]  区分大小写，模糊查询数据（键值只能包含部分匹配的键值字段；例如，“HAM”会同时匹配“HAMM”和“HAMMER”）</li>
</ul>
一起使用：
<ul>
<li>[ loCaseInsensitive ,loPartialKey ]  不区分大小写，模糊查询数据</li>
</ul>
示例：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Name1:= ADOQuery1.FieldbyName('A1').AsString;
Name2:= ADOQuery1.FieldbyName('A2').AsString;
ADOQuery1.Locate('A1', Name1, []); //精确查询
ADOQuery1.Locate('A1', Name1, );//模糊查询
ADOQuery1.Locate('A1', Name1, ); //模糊查询,不区分大小写
ADOQuery1.Locate('A1;A2', VarArrayOf(), []); //多个数据一起查询，精确匹配
ADOQuery1.Locate('A1;A2', VarArrayOf(), ); //多个数据一起查询，不区分大小写精确匹配
ADOQuery1.Locate('A1;A2', VarArrayOf(), ); //多个数据一起查询，不区分大小写模糊匹配
</pre>
</div>
 
 
返回值：
　Locate 方法的回传数值是布尔值，表示是否成功找到了要查寻的数据。找到，就回传True，否则就回传False。
　当成功地查寻到数据之后，它就会移动目前的记录位置到这个数据上，否则就会停留在Locate开始查寻之前的记录位置上。
　注意：查寻数据的结果是一条数据，如果想查寻符合条件的一群数据，需使用过滤器（Filter）功能。 
 
作者有感：
　　一个简单的查询/定位函数网络上文章参差不齐，误导了很多人，修改和优化多次，认真实践和研读才能领会。
 
 
创建日期：2019.07.08　　更新时间：2021.01.29　　2021.02.22　　2021.07.22
 

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/11152323.html

頁: [1]

琼殿技术论坛's Archiver

Delphi Locate函数[1] - 查询、定位