abap2xlsx/src/zcl_excel_collection_iterator.clas.abap
sandraros d7011f715c
Fix #893
* first part

* second and last part

Co-authored-by: sandraros <sandra.rossi@gmail.com>
2021-11-28 20:25:35 +01:00

53 lines
1.0 KiB
ABAP

CLASS zcl_excel_collection_iterator DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS get_index
RETURNING
VALUE(index) TYPE i.
METHODS has_next
RETURNING
VALUE(has_next) TYPE abap_bool.
METHODS get_next
RETURNING
VALUE(object) TYPE REF TO object.
METHODS constructor
IMPORTING
collection TYPE REF TO zcl_excel_collection.
PROTECTED SECTION.
PRIVATE SECTION.
DATA index TYPE i VALUE 0.
DATA collection TYPE REF TO zcl_excel_collection.
ENDCLASS.
CLASS zcl_excel_collection_iterator IMPLEMENTATION.
METHOD constructor .
me->collection = collection.
ENDMETHOD.
METHOD get_index .
index = me->index.
ENDMETHOD.
METHOD get_next .
DATA obj TYPE REF TO object.
index = index + 1.
object = collection->get( index ).
ENDMETHOD.
METHOD has_next.
DATA obj TYPE REF TO object.
obj = collection->get( index + 1 ).
has_next = boolc( obj IS NOT INITIAL ).
ENDMETHOD.
ENDCLASS.