Решение проблем с модификацией и передачей записей в generic TList в Delphi

Delphi , Компоненты и Классы , Коллекции

При работе с generic TList в Delphi, содержащим записи, могут возникнуть определенные проблемы. В этой статье мы рассмотрим две основные проблемы, с которыми вы можете столкнуться, и предложим решения для их устранения.

Проблема 1: Модификация содержащейся записи

При попытке модифицировать запись, хранящуюся в TList, вы можете столкнуться с тем, что изменения не применяются к записи, хранящейся в списке. Это происходит потому, что методы, возвращающие запись, возвращают временную копию, а не саму запись.

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

Type
  TMERecordList<T> = Class(TList<T>)
  Private
    FList: TArray<T>;
  Public
    Property Items[Index: Integer]: T; Read GetItem; Write SetItem;
  End;

Procedure TMERecordList<T>.SetItem(Index: Integer; Value: T);
Begin
  FList[Index] := Value;
End;

Function TMERecordList<T>.GetItem(Index: Integer): T;
Begin
  Result := FList[Index];
End;

Теперь, когда вы меняете значение Items[Index], изменения применяются непосредственно к записи, хранящейся в списке.

Проблема 2: Неопределенность интерфейса

При использовании TList для хранения записей может возникнуть неопределенность интерфейса, связанная с методами, принимающими параметры типа T. Поскольку записи передаются по значению, может быть неясно, как эти методы должны проверять содержащиеся в списке записи на совпадение с параметром.

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

Вот пример кода, демонстрирующий это:

Type
  TMERecordList<T> = Class(TList<T>)
  Public
    Procedure RemoveItem(P: Pointer); Override;
    Function Contains(P: Pointer): Boolean; Override;
    // Переопределите другие методы, принимающие параметры типа T, аналогичным образом
  End;

Procedure TMERecordList<T>.RemoveItem(P: Pointer);
Var
  Index: Integer;
Begin
  Index := IndexOfItem(P);
  If Index >= 0 Then
    Delete(Index);
End;

Function TMERecordList<T>.Contains(P: Pointer): Boolean;
Var
  Index: Integer;
Begin
  Index := IndexOfItem(P);
  Result := (Index >= 0);
End;

Теперь, когда вы вызываете методы RemoveItem или Contains, передавая указатель на запись, они будут работать с содержащимися в списке записями, а не с временными копиями.

Используя эти решения, вы сможете эффективно работать с записями в generic TList в Delphi, не сталкиваясь с проблемами, связанными с их модификацией и передачей.

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

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

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

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

:: Главная :: Коллекции ::