OfficeXml/autoclass/adapter/docx/StylesAdapter@DOCX.tsf

38 lines
776 B
Plaintext

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;