37 lines
688 B
Plaintext
37 lines
688 B
Plaintext
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;
|