"Перебор объектов в TObjectList"

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

В статье мы рассмотрим, как перебирать объекты в TObjectList в языке программирования Object Pascal (Delphi). Несмотря на то, что TObjectList является устаревшим классом и рекомендуется использовать generic-контейнеры из Generics.Collections, мы все же рассмотрим, как работать с TObjectList и как перебирать объекты в нем.

TObjectList является подклассом TList, который является частью пакета Contnrs. TList предоставляет возможность перебора элементов с помощью конструкции for in, но TObjectList не имеет собственного перечислителя, поэтому мы не можем использовать for in напрямую.

Однако мы можем добавить перечислитель в TObjectList, создав подкласс и добавив метод GetEnumerator. Вот пример кода, который демонстрирует, как это сделать:

type
  TObjectListEnumerator = record
  private
    FIndex: Integer;
    FList: TObjectList;
  public
    constructor Create(AList: TObjectList);
    function GetCurrent: TObject;
    function MoveNext: Boolean;
    property Current: TObject read GetCurrent;
  end;

constructor TObjectListEnumerator.Create(AList: TObjectList);
begin
  FIndex := -1;
  FList := AList;
end;

function TObjectListEnumerator.GetCurrent: TObject;
begin
  Result := FList[FIndex];
end;

function TObjectListEnumerator.MoveNext: Boolean;
begin
  Result := FIndex < FList.Count - 1;
  if Result then
    Inc(FIndex);
end;

TMyObjectList = class(TObjectList)
public
  function GetEnumerator: TObjectListEnumerator;
end;

function TMyObjectList.GetEnumerator: TObjectListEnumerator;
begin
  Result := TObjectListEnumerator.Create(Self);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  o: TObject;
  List: TMyObjectList;
begin
  List := TMyObjectList.Create;
  List.Add(TObject.Create);

  for o in List do
    Writeln(o);
end;

В данном примере мы создаем подкласс TMyObjectList от TObjectList и добавляем метод GetEnumerator, который возвращает объект TObjectListEnumerator. Этот перечислитель имеет метод MoveNext, который переходит к следующему элементу в списке, и свойство Current, которое возвращает текущий элемент.

Далее, в обработчике нажатия кнопки, мы создаем список List и добавляем в него объект TObject. Затем мы перебираем элементы списка с помощью конструкции for in, где o является текущим элементом списка на каждой итерации.

Примечание: В современных версиях Delphi рекомендуется использовать generic-контейнеры из Generics.Collections, которые предоставляют больше возможностей и лучшую производительность. Однако, если вам все же необходимо работать с TObjectList, то данный подход поможет вам перебирать объекты в нем с помощью конструкции for in.

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

В статье описывается, как перебирать объекты в `TObjectList` в Object Pascal (Delphi) путем создания подкласса с методом `GetEnumerator` для добавления перечислителя к `TObjectList`.

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

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

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