如何使用dataset.locate函数查找区间内优惠券对应的获奖者？

我拥有如下数据集：

Winner Name	Coupon Start	Coupon End
Joshua	00001	00010
Mark	00011	00020
Stephen	00021	00024
Ina	00025	00025

我可以轻松使用Locate函数找到优惠券00011对应的获奖者Mark，但如何使用dataset.locate函数查找区间内的优惠券（如00023或00007）对应的获奖者？

首先需要明确：Dataset.Locate的核心设计是用于精确匹配记录，无法通过单次调用直接完成区间范围的查找。要实现你的需求，可参考以下几种方案：

方案1：使用数据集Filter功能 #

这是最直接的方式，通过过滤条件筛选出覆盖目标优惠券的记录：

var
  TargetCoupon: Integer;
begin
  TargetCoupon := StrToInt('00023'); // 替换为你要查询的优惠券号
  // 设置过滤条件：目标优惠券在当前记录的区间内
  DataSet.Filter := Format('StrToInt(CouponStart) <= %d AND StrToInt(CouponEnd) >= %d', 
                          [TargetCoupon, TargetCoupon]);
  DataSet.Filtered := True;
  
  if not DataSet.IsEmpty then
    ShowMessage('获奖者：' + DataSet.FieldByName('WinnerName').AsString);
end;

方案2：遍历数据集逐一检查 #

手动遍历每条记录，判断目标优惠券是否落在当前记录的区间中：

var
  TargetCoupon: Integer;
begin
  TargetCoupon := StrToInt('00007');
  DataSet.First;
  
  while not DataSet.Eof do
  begin
    if (StrToInt(DataSet.FieldByName('CouponStart').AsString) <= TargetCoupon) and
       (StrToInt(DataSet.FieldByName('CouponEnd').AsString) >= TargetCoupon) then
    begin
      ShowMessage('获奖者：' + DataSet.FieldByName('WinnerName').AsString);
      Break; // 找到匹配后退出循环
    end;
    DataSet.Next;
  end;
end;

方案3：结合Locate与范围查找（限有序数据集） #

如果你的数据集已经按CouponStart排序，可以借助loPartialKey参数定位到近似位置，再遍历检查区间：

var
  TargetCoupon: Integer;
  Found: Boolean;
begin
  TargetCoupon := StrToInt('00023');
  // 定位到第一个CouponStart不大于目标值的记录
  Found := DataSet.Locate('CouponStart', IntToStr(TargetCoupon), [loPartialKey]);
  
  if Found then
  begin
    // 向前回溯，确保找到最靠前的可能匹配记录
    while DataSet.Prior do
    begin
      if StrToInt(DataSet.FieldByName('CouponStart').AsString) > TargetCoupon then
      begin
        DataSet.Next;
        Break;
      end;
    end;
    
    // 向后遍历，检查每条记录的区间是否覆盖目标优惠券
    while not DataSet.Eof do
    begin
      if StrToInt(DataSet.FieldByName('CouponStart').AsString) > TargetCoupon then
        Break; // 区间起始超过目标，无需继续
      
      if StrToInt(DataSet.FieldByName('CouponEnd').AsString) >= TargetCoupon then
      begin
        ShowMessage('获奖者：' + DataSet.FieldByName('WinnerName').AsString);
        Break;
      end;
      DataSet.Next;
    end;
  end;
end;

额外建议：如果数据源是数据库 #

如果你的数据集来自数据库，直接用SQL查询会更高效：

SELECT WinnerName 
FROM YourTableName 
WHERE CAST(CouponStart AS INT) <= 23 AND CAST(CouponEnd AS INT) >= 23

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