您可以在SQL查询中使用Group By和Count来获得如下结果。

SQL语句：

SELECT check_id, COUNT(check_id) as check_id_count
FROM my_table
GROUP BY check_id
ORDER BY check_id;

结果：

| 检查标识|检查标识计数|
| - -|- -|
| 小行星50001|一个|
| 小行星50002| 2个|
| 小行星50003|一个|
现在，您可以像这样迭代记录：

Delphi 代码

cte.SQL.Text := 'SELECT check_id, COUNT(check_id) as check_id_count FROM my_table GROUP BY check_id ORDER BY check_id';
cte.Open;

while not cte.Eof do
begin
  case cte.Fields[1].AsInteger of
    1: Foo(cte.Fields[0].AsInteger)
    2: Bar(cte.Fields[0].AsInteger)
    // add more when necessary
  else
    FooBar; // every other count of check_id
  end;
  cte.Next;
end;