type StylesAdapter = class public function Create(_obj: Styles); function Init(); property StyleId read ReadStyleId write WriteStyleId; function ReadStyleId(_key: string); function WriteStyleId(_key: string; _value: tslobj); private object_: Styles; style_hash_: tableArray; end; function StylesAdapter.Create(_obj: Styles); begin object_ := _obj; style_hash_ := array(); self.Init(); end; function StylesAdapter.Init(); begin elements := object_.Styles; for k,v in elements do style_hash_[v.StyleId] := v; end; function StylesAdapter.ReadStyleId(_key: string); begin return style_hash_[_key]; end; function StylesAdapter.WriteStyleId(_key: string; _value: tslobj); begin style_hash_[_key] := _value; end;