SAP ABAP 裡存在 Java List 這種集合工具類麼？CL_OBJECT_COLLECTION 瞭解一下

Jerry 以前在工作中交替做著 ABAP 和 Java 開發時，總是在使用一種語言時，懷念另一種語言的便利之處，比如用 ABAP 開發時，懷念 Java 裡以 List 為代表的功能強大，使用方便的集合工具類。

List 或許是眾多 Java 初學者最先接觸和掌握的 Java 集合工具介面之一。以最具代表性的實現類 ArrayList 為例，檢視其原始碼，發現 ArrayList 不過就是用面向物件的程式設計方式封裝了對一個物件陣列的常用操作，使其不僅支援 Java 原生 Array 的所有功能，同時也支援前者不具備的動態擴容功能。

對 Java 稍有了解的開發者，要自己仿照著寫出一個同樣的 ArrayList 實現，並不是一件困難的事情。不過 List 介面和其眾多實現類都是 Java 開發包的一部分，這使得 Java 開發者做應用開發時不用重複造輪子，可以直接使用，非常方便。

那麼 SAP ABAP 裡存在類似的集合工具類麼？

首先我們有內表，具備 Java Array 的所有功能，並且功能和使用靈活度上來說都遠勝後者。但內表的操作畢竟是一種面向過程的程式設計思路。ABAP 裡存在類似 Java List 的介面嗎？

通過之前檢視 Java ArrayList 的實現原始碼，我們可以仿照其思路，在 ABAP 裡實現一個一模一樣的 ABAP ArrayList 出來，只需要定義一個行型別(Table Line)為物件引用的內表變數，再用面向物件程式設計方式實現對這個內表變數插入，刪除，和按索引訪問的功能即可。而 Java ArrayList 的動態擴容，ABAP 內表原生就支援。

事實上 SAP CRM 就採取了這種實現思路，CL_CRM_BOL_ENTITY_COL，這個工具類，從名稱上就能判斷出它是 BOL 例項的儲存容器，提供了容器內 BOL 例項元素的插入，刪除和遍歷的功能。

然而這個列表只能插入型別為 BOL 例項的元素，有更通用的 ABAP List 工具類麼？那就是 CL_OBJECT_COLLECTION, 提供了類似 Java ArrayList 對列表元素的基本操作：

• 插入

• 刪除

• 按索引訪問

• 遍歷

• 清空列表

這個工具類內部維護的內表型別為 TYPE STANDARD TABLE OF REF TO OBJECT, 因此可插入指向任何物件例項的引用。

Jerry 這篇部落格曾經介紹過該工具類的一個使用例子：

CL_OBJECT_COLLECTION, iterator and Polymorphism

假設我們要開發一個計算圖形面積的應用，支援圓形和長方形。實現兩個類 ZCL_CIRCLE 和 ZCL_RECTANGLE, 分別按照圓形和長方形的面積計算公式，實現 GET_AREA 方法。

傳統的實現方式

定義一個 Table Line 型別為通用的物件引用(TYPE REF TO OBJECT)的內表 lt_shape，用於存放圓形和長方形的例項物件引用。

每次建立圓形或者長方形的物件例項之後，新增到內表中，然後 LOOP 內表，逐行取出元素，用 IS INSTANCE OF 關鍵字，判斷當前記錄指向的是圓形還是長方形例項，再用 CAST 進行強制型別轉換，呼叫對應的面積計算方法。

這種實現方式，在 LOOP 裡有 IF ELSE 判斷，IS INSTANCE OF 和 CAST 這三種非常醜陋的寫法。將來如果要支援其他圖形比如三角形的面積計算，又得在 LOOP 裡新增新的 ELSE 分支，這違反了程式設計的開閉原則-對擴充套件開放，對修改封閉。

採用 CL_OBJECT_COLLECTION 的多型實現

定義一個新的介面 ZIF_SHAPE，圓形和長方形的類均實現自這個介面：

藉助 CL_OBJECT_COLLECTION, 採取面向物件程式設計裡多型(Polymorphism)的思路，我們不僅避免了醜陋的 IF-ELSE，繁瑣的型別探測 IS INSTANCEOF 和強制型別轉換 CAST，同時將程式碼行數從 37 行減少到了 20 行。將來要是得增加對其他圖形的支援，只需要新建圖形類並實現，而無需修改下面的計算邏輯。

當然這個例子如果不用 CL_OBJECT_COLLECTION, 而是每次把實現了 ZIF_SHAPE 介面的圖形類例項，加入到 TABLE LINE 型別為 TYPE REF TO OBJECT 的內表裡，然後直接 LOOP 內表，也可以達到同樣的效果。本文只是為了演示 CL_OBJECT_COLLECTION 的用法，故而沒有使用內表來完成計算。

本例實際上是迭代器設計模式的一個具體應用。迭代器設計模式是提供一種訪問底層物件集合而不暴露底層表示的方法。Iterator 將訪問物件集合的邏輯從 collection 物件本身解耦。這種解耦在遍歷不同型別的集合物件時提供了額外的優勢。

Iterator 還提供了根據需求以不同方式遍歷集合的靈活性。如果我們將 position 嵌入到 Collection 物件本身中，它將不允許我們以不同的方式實現多重訪問。迭代器從 Collection 物件中獲取訪問的責任，並將其放在自己內部。迭代器提供了訪問底層資料結構的唯一介面。客戶端不需要知道正在訪問的集合物件的型別。

希望本文能幫助大家通過 ABAP 工具類 CL_OBJECT_COLLECTION 實現迭代器設計模式的做法有一個最基礎的瞭解。

感謝閱讀。