"Ошибка GetEnumerator в Delphi при работе с листами Excel: причины и решение"

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

В данной статье мы рассмотрим ошибку, с которой вы можете столкнуться при работе с листами Excel в Delphi: "no GetEnumerator present" при использовании цикла for для перебора коллекции Workbook.Worksheets. Мы также рассмотрим причины этой ошибки и способы ее решения.

Причина ошибки

Ошибка "no GetEnumerator present" возникает из-за того, что коллекция Sheets в Excel Interop не содержит метод GetEnumerator, который необходим для перебора элементов коллекции в цикле for. В Delphi для перебора коллекции требуется наличие метода GetEnumerator, который возвращает объекты, содержащие методы MoveNext и Current.

Решение ошибки

Способ 1: Использование цикла for с индексами

Одним из способов решения этой ошибки является использование цикла for с индексами вместо цикла for-in. Для этого вам нужно знать количество элементов в коллекции и перебирать их по индексам. Вот пример кода на Object Pascal (Delphi):

var
  ExcelApp: ExcelApplication;
  Workbook: ExcelWorkbook;
  Worksheet: ExcelWorksheet;
  i: Integer;
begin
  ExcelApp := CreateOleObject('Excel.Application') as ExcelApplication;
  Workbook := ExcelApp.Workbooks.Open('путь к файлу.xlsx');
  for i := 1 to Workbook.Worksheets.Count do
  begin
    Worksheet := Workbook.Worksheets[i] as ExcelWorksheet;
    // ваш код для форматирования ячеек
  end;
  Workbook.Close;
  ExcelApp.Quit;
  Workbook := nil;
  ExcelApp := nil;
end;

В данном примере мы перебираем все листы в книге Excel с помощью цикла for по индексам, начиная с 1 и заканчивая количеством листов в книге (Workbook.Worksheets.Count).

Способ 2: Использование цикла for-in с переопределением GetEnumerator

Если вы хотите использовать цикл for-in для перебора коллекции листов Excel, но при этом не хотите менять существующий код, вы можете переопределить метод GetEnumerator для коллекции Sheets. Для этого вам нужно создать новый класс, который будет наследоваться от класса Sheets и переопределять метод GetEnumerator. Вот пример кода на Object Pascal (Delphi):

type
  TCustomSheets = class(TInterfacedObject, ISheets)
  private
    FWorkbook: IWorkbook;
    function GetEnumerator: IEnumWorksheet; override;
  public
    property Workbook: IWorkbook read FWorkbook;
  end;

  TSheets = class(TCustomSheets)
  private
    function GetEnumerator: IEnumWorksheet; override;
  end;

function TCustomSheets.GetEnumerator: IEnumWorksheet;
begin
  Result := FWorkbook.Worksheets.GetEnumerator;
end;

function TSheets.GetEnumerator: IEnumWorksheet;
begin
  Result := Self.GetEnumerator;
end;

В данном примере мы создаем новый класс TCustomSheets, который наследовался от класса TInterfacedObject и реализует интерфейс ISheets. В этом классе мы переопределяем метод GetEnumerator, который возвращает перечислитель для коллекции листов Excel. Затем мы создаем класс TSheets, который наследовался от класса TCustomSheets и также переопределяет метод GetEnumerator.

Теперь вы можете использовать цикл for-in для перебора коллекции листов Excel, как если бы метод GetEnumerator был доступен в коллекции Sheets:

var
  ExcelApp: ExcelApplication;
  Workbook: ExcelWorkbook;
  Worksheet: ExcelWorksheet;
begin
  ExcelApp := CreateOleObject('Excel.Application') as ExcelApplication;
  Workbook := ExcelApp.Workbooks.Open('путь к файлу.xlsx');
  for Worksheet in TSheets(Workbook.Worksheets) do
  begin
    // ваш код для форматирования ячеек
  end;
  Workbook.Close;
  ExcelApp.Quit;
  Workbook := nil;
  ExcelApp := nil;
end;

В данном примере мы создаем объект класса TSheets для коллекции листов Excel и используем его в цикле for-in для перебора всех листов в книге Excel.

Заключение

В данной статье мы рассмотрели ошибку "no GetEnumerator present" при работе с листами Excel в Delphi и предложили два способа ее решения: использование цикла for с индексами и переопределение метода GetEnumerator для коллекции Sheets. Выбор способа решения зависит от ваших конкретных задач и предпочтений.

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

В данной статье рассматривается ошибка "no GetEnumerator present", возникающая при работе с листами Excel в Delphi в цикле for, и предлагаются способы ее решения, такие как использование цикла for с индексами или переопределение метода GetEnumerator для к

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

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

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