type TabsAdapter = class public function Create(_obj: Tabs); function Init(); function GetTabByVal(_key: string); function SetTabByVal(_key: string; _value: tslobj); private object_: Tabs; tab_hash_: tableArray; end; function TabsAdapter.Create(_obj: Tabs); begin object_ := _obj; tab_hash_ := array(); {self.}Init(); end; function TabsAdapter.Init(); begin elements := object_.Tabs(); for k,v in elements do tab_hash_[v.Val] := v; end; function TabsAdapter.GetTabByVal(_key: string); begin return tab_hash_[_key]; end; function TabsAdapter.SetTabByVal(_key: string; _value: tslobj); begin tab_hash_[_key] := _value; end;