Delphi中循环删除记录的实现方法

在 Delphi 中使用 ADOQuery 循环删除记录时，需要注意删除后记录指针的变化。以下是几种实现方法：

方法1：从后向前遍历（推荐）

for i := adqDetail.RecordCount - 1 downto 0 do
begin
  adqDetail.RecNo := i + 1; // 设置记录指针
  if {满足删除条件} then
    adqDetail.Delete
  else
    Continue; // 可选，继续下一条
end;

方法2：使用 while 循环

adqDetail.First;
while not adqDetail.Eof do
begin
  if {满足删除条件} then
    adqDetail.Delete
  else
    adqDetail.Next;
end;

方法3：使用 Bookmark 标记

var
  Bookmark: TBookmark;
begin
  adqDetail.DisableControls;
  try
    Bookmark := adqDetail.GetBookmark;
    try
      adqDetail.First;
      while not adqDetail.Eof do
      begin
        if {满足删除条件} then
          adqDetail.Delete
        else
          adqDetail.Next;
      end;
      if adqDetail.BookmarkValid(Bookmark) then
        adqDetail.GotoBookmark(Bookmark);
    finally
      adqDetail.FreeBookmark(Bookmark);
    end;
  finally
    adqDetail.EnableControls;
  end;
end;

完整示例

// 示例：删除字段 "Status" 为 'D' 的记录
procedure DeleteRecordsByCondition;
var
  i: Integer;
begin
  // 方法1：从后向前
  for i := adqDetail.RecordCount - 1 downto 0 do
  begin
    adqDetail.RecNo := i + 1;
    if adqDetail.FieldByName('Status').AsString = 'D' then
      adqDetail.Delete;
  end;

  // 或者使用方法2
  adqDetail.First;
  while not adqDetail.Eof do
  begin
    if adqDetail.FieldByName('Status').AsString = 'D' then
      adqDetail.Delete
    else
      adqDetail.Next;
  end;
end;

重要提示：

1. 从后向前遍历是最安全的方法，因为删除不会影响未遍历的记录索引

2. 如果数据集支持，也可以使用 SQL 直接删除：

adqDetail.Close;
adqDetail.SQL.Text := 'DELETE FROM YourTable WHERE Status = ''D''';
adqDetail.ExecSQL;
adqDetail.SQL.Text := 'SELECT * FROM YourTable';
adqDetail.Open;

3. 操作大量数据时建议使用 DisableControls/EnableControls 提高性能

推荐使用方法1（从后向前遍历），这是最稳定且不会出错的方式。