Двойное прохождение записи в TClientDataSet при удалении: ошибка или особенность Delphi?

Delphi , Синтаксис , Циклы

Двойное прохождение записи в TClientDataSet при удалении: особенность, а не ошибка Delphi

При работе с компонентом TClientDataSet в Delphi иногда может наблюдаться неожиданное поведение: некоторые записи проходятся дважды в цикле обхода данных, если в процессе удаляются записи. Рассмотрим причину этого явления и способы решения проблемы.

Пример кода, вызывающий двойное прохождение записи:

var
  D: TClientDataSet;
begin
  D := TClientDataSet.Create(Self);
  with D do begin
    FieldDefs.Add('DocKey', ftInteger);
    CreateDataSet;
    AppendRecord([20157]);
    AppendRecord([20162]);
    AppendRecord([20381]);
    AppendRecord([20372]);
    AppendRecord([20377]);
  end;

  D.First;
  while not D.Eof do begin
    if D.Fields[0].AsInteger = 20381 then
      D.Next
    else
      D.Delete;
  end;
end;

В данном примере ожидается, что данные пройдут 5 раз (по количеству записей), но на практике может наблюдаться 6 проходов, при этом запись с DocKey=20381 проходит дважды.

Причина явления

Данное поведение обусловлено особенностью работы с TClientDataSet и не является ошибкой. Когда удаляется последняя запись в наборе данных, курсор перемещается на предыдущую запись, в результате чего происходит дополнительный проход. Это документально подтвержденное поведение, описанное в документации к методу Delete компонента TDataSet (https://docwiki.embarcadero.com/Libraries/XE5/en/Data.DB.TDataSet.Delete).

Решения проблемы

1. Использование индекса

Одним из способов решения проблемы является использование индекса для поля, по которому производится удаление записей. Для этого нужно установить свойство IndexFieldNames компонента TClientDataSet в значение имени поля, по которому создается индекс:

pascal D.IndexFieldNames := 'DocKey';

При использовании индекса последняя запись в наборе данных становится последней, и дополнительный проход не происходит.

1. Проверка номера текущей записи

Другой способ заключается в проверке номера текущей записи перед удалением. Если номер текущей записи уменьшился, то это значит, что произошло дополнительное прохождение записи, и можно выйти из цикла:

```pascal var D: TClientDataSet; LRecNo : Integer; begin D := TClientDataSet.Create(Self); with D do begin FieldDefs.Add('DocKey', ftInteger); CreateDataSet; AppendRecord([20157]); AppendRecord([20162]); AppendRecord([20381]); AppendRecord([20372]); AppendRecord([20377]); end;

 D.First;
 while not D.Eof do
 begin
   LRecNo := D.RecNo;

   if D.Fields[0].AsInteger = 20381 then
     D.Next
   else
     D.Delete;

   if LRecNo > D.RecNo then
     Break;
 end;

end; ```

В заключение стоит отметить, что данное поведение является особенностью работы с TClientDataSet и не считается ошибкой. При необходимости можно использовать описанные выше способы решения проблемы, выбирая наиболее подходящий в зависимости от конкретной задачи.

Создано по материалам из источника по ссылке.

В контексте обсуждается особенность работы с компонентом TClientDataSet в Delphi: двойное прохождение записи при удалении, которое не является ошибкой, и описываются способы решения этой проблемы, такие как использование индекса или проверка номера текуще

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::