54 lines
1.4 KiB
Plaintext
54 lines
1.4 KiB
Plaintext
type SectPrAdapter = class
|
|
public
|
|
function Create(_obj: SectPr);
|
|
function Init();
|
|
|
|
function GetHeaderReferenceByType(_key: string);
|
|
function SetHeaderReferenceByType(_key: string; _value: tslobj);
|
|
function GetFooterReferenceByType(_key: string);
|
|
function SetFooterReferenceByType(_key: string; _value: tslobj);
|
|
|
|
private
|
|
object_: SectPr;
|
|
headerreference_hash_: tableArray;
|
|
footerreference_hash_: tableArray;
|
|
end;
|
|
|
|
function SectPrAdapter.Create(_obj: SectPr);
|
|
begin
|
|
object_ := _obj;
|
|
headerreference_hash_ := array();
|
|
footerreference_hash_ := array();
|
|
{self.}Init();
|
|
end;
|
|
|
|
function SectPrAdapter.Init();
|
|
begin
|
|
elements := object_.HeaderReferences();
|
|
for k,v in elements do
|
|
headerreference_hash_[v.Type] := v;
|
|
elements := object_.FooterReferences();
|
|
for k,v in elements do
|
|
footerreference_hash_[v.Type] := v;
|
|
end;
|
|
|
|
function SectPrAdapter.GetHeaderReferenceByType(_key: string);
|
|
begin
|
|
return headerreference_hash_[_key];
|
|
end;
|
|
|
|
function SectPrAdapter.SetHeaderReferenceByType(_key: string; _value: tslobj);
|
|
begin
|
|
headerreference_hash_[_key] := _value;
|
|
end;
|
|
|
|
function SectPrAdapter.GetFooterReferenceByType(_key: string);
|
|
begin
|
|
return footerreference_hash_[_key];
|
|
end;
|
|
|
|
function SectPrAdapter.SetFooterReferenceByType(_key: string; _value: tslobj);
|
|
begin
|
|
footerreference_hash_[_key] := _value;
|
|
end;
|