如何用TQuery.Locate()定位TAG字段第N次出现的匹配行？

当然可以定位到TAG=1的第二次出现，甚至能灵活处理第N次的需求，下面分两种方案给你讲解，兼顾实现复杂度和效率：

一、客户端遍历计数法（简单易实现） #

这是你最初想到的思路，虽然担心效率，但小数据量下完全够用，而且逻辑直观：

1. 先把TQuery的数据集移到最开头（q.First）
2. 初始化一个计数器，比如var count: Integer := 0;
3. 循环遍历数据集，每遇到TAG=1就递增计数器，直到计数器等于目标次数（比如2）：

q.First;
count := 0;
tag60 := nil;
// 用于存储当前段的TAGTEXT
var segmentList: TStringList := TStringList.Create;
try
  while not q.Eof do
  begin
    if q.FieldByName('TAG').AsInteger = 1 then
    begin
      Inc(count);
      if count = 2 then // 这里替换成传入的N参数
      begin
        tag60 := q.FieldByName('TAGTEXT');
        // 收集当前段（到下一个TAG=1之前）的所有TAGTEXT
        while not q.Eof do
        begin
          q.Next;
          if q.Eof or (q.FieldByName('TAG').AsInteger = 1) then
            Break;
          segmentList.Add(q.FieldByName('TAGTEXT').AsString);
        end;
        Break;
      end;
    end;
    q.Next;
  end;
finally
  segmentList.Free;
end;

这个方法不需要修改数据库，直接用现有TQuery组件就能实现，缺点是数据量大时会有性能损耗，因为要全表遍历。

二、SQL窗口函数法（高效推荐） #

如果你的数据库支持窗口函数（比如MySQL 8.0+、SQL Server、Oracle、PostgreSQL等），直接在SQL层面预处理数据，效率会比客户端遍历高很多——数据库引擎会针对性优化查询计划，避免客户端全量拉取数据：

1. 定位第N次出现的TAG=1记录 #

用ROW_NUMBER()窗口函数给每个TAG=1的记录生成序号，直接查询目标序号的记录：

WITH TagOccurrences AS (
    SELECT 
        TAG,
        TAGTEXT,
        -- 这里的ORDER BY要换成你表中实际的排序字段（比如自增ID、创建时间），保证顺序和你预期一致
        ROW_NUMBER() OVER (PARTITION BY TAG ORDER BY ID) AS OccurrenceNum
    FROM YourTableName
)
SELECT TAGTEXT 
FROM TagOccurrences 
WHERE TAG = 1 AND OccurrenceNum = :N -- :N是传入的参数，对应TQuery的参数

把这段SQL赋值给q.SQL，然后给参数:N赋值（比如q.ParamByName('N').AsInteger := 2），执行后直接获取结果即可。

2. 获取第N次TAG=1对应的段数据（到下一个TAG=1之前的所有记录） #

用LEAD()窗口函数获取下一个TAG=1记录的位置，筛选出中间的所有数据：

WITH AllRecords AS (
    SELECT 
        ID,
        TAG,
        TAGTEXT,
        -- 给每条TAG=1的记录生成段序号
        CASE WHEN TAG = 1 THEN ROW_NUMBER() OVER (ORDER BY ID) END AS SegmentNum
    FROM YourTableName
),
SegmentBounds AS (
    SELECT 
        SegmentNum,
        ID AS StartID,
        -- 获取当前段的结束位置（下一个TAG=1的ID，没有则用最大ID）
        LEAD(ID, 1, (SELECT MAX(ID) FROM AllRecords)) OVER (ORDER BY ID) AS EndID
    FROM AllRecords
    WHERE SegmentNum IS NOT NULL
)
SELECT ar.TAGTEXT
FROM AllRecords ar
JOIN SegmentBounds sb ON ar.ID >= sb.StartID AND ar.ID < sb.EndID
WHERE sb.SegmentNum = :N -- :N是目标段的序号

同样，把这段SQL给TQuery，传入参数N就能直接拿到整个段的所有TAGTEXT值，全程在数据库端处理，性能最优。

总结 #

• 小数据集：用客户端遍历法，快速实现，无需依赖数据库特性
• 大数据集：优先用SQL窗口函数法，利用数据库的查询优化能力，大幅提升效率

内容的提问来源于stack exchange，提问作者user8675722