Looping through Objects

Question

Hi,
I'm trying to design business entities with ABAP Objects. I have been able to create internal tables of custom object types.
I stumbled into a very peculiar situation in which i have to loop through my custom object internal table. i couldn't use the WHERE specification since the line type is not a structure. READ TABLE doesnt work either. What i did to overcome the problem was to do a LOOP AT with an IF statement inside and an EXIT command to quit the search when found.
Is there a better solution? And Is the whole idea of wrapping everything in classes and accessing the through an internal idea a good idea in the first place?
Thanks.

Answer 1

heres an example:
* DEFINITIONS
CLASS cl_drag_drop_picture DEFINITION INHERITING FROM cl_gui_picture.
  PUBLIC SECTION.
    DATA: row     TYPE I,
          col     TYPE I.
DATA: g_wa_pic_ctrl TYPE REF TO cl_drag_drop_picture.
DATA: g_it_pic_ctrl LIKE TABLE OF g_wa_pic_ctrl.
* PROCESS
* lets assume that g_it_pic_ctrl has several entries and
* each entry is uniquely identified by the attributes
* row AND col.
PERFORM GetObjectByRowCol USING p_row
                                p_col
                       CHANGING g_wa_pic_ctrl.
* SUBROUTINES
FORM GetObjectByRowCol USING p_row
                             p_col
                    CHANGING r_pic_ctrl.
  DATA: l_wa_pic_ctrl LIKE g_wa_pic_ctrl.
* Search for picture
  LOOP AT g_it_pic_ctrl INTO l_wa_pic_ctrl.
    IF l_wa_pic_ctrl->row EQ p_row AND
       l_wa_pic_ctrl->col EQ p_col.
      r_pic_ctrl = l_wa_pic_ctrl.
      EXIT.
    ENDIF.
  ENDLOOP.
* Collect Garbage
  CLEAR l_wa_pic_ctrl.
ENDFORM.
What I couldn't do is access my internal table like:
READ TABLE g_it_pic_ctrl
      INTO r_pic_ctrl
  WITH KEY row = p_row
           col = p_col.
OR
LOOP AT g_it_pic_ctrl INTO r_pic_ctrl
                     WHERE row EQ p_row
                           col EQ p_col.