56 lines
1.3 KiB
Plaintext
56 lines
1.3 KiB
Plaintext
type NumberingAdapter = class
|
|
public
|
|
function Create(_obj: Numbering);
|
|
function Init();
|
|
|
|
property AbstractNumId read ReadAbstractNumId write WriteAbstractNumId;
|
|
property NumId read ReadNumId write WriteNumId;
|
|
function ReadAbstractNumId(_key: string);
|
|
function WriteAbstractNumId(_key: string; _value: tslobj);
|
|
function ReadNumId(_key: string);
|
|
function WriteNumId(_key: string; _value: tslobj);
|
|
|
|
private
|
|
object_: Numbering;
|
|
abstractnum_hash_: tableArray;
|
|
num_hash_: tableArray;
|
|
end;
|
|
|
|
function NumberingAdapter.Create(_obj: Numbering);
|
|
begin
|
|
object_ := _obj;
|
|
abstractnum_hash_ := array();
|
|
num_hash_ := array();
|
|
self.Init();
|
|
end;
|
|
|
|
function NumberingAdapter.Init();
|
|
begin
|
|
elements := object_.AbstractNums;
|
|
for k,v in elements do
|
|
abstractnum_hash_[v.AbstractNumId] := v;
|
|
elements := object_.Nums;
|
|
for k,v in elements do
|
|
num_hash_[v.NumId] := v;
|
|
end;
|
|
|
|
function NumberingAdapter.ReadAbstractNumId(_key: string);
|
|
begin
|
|
return abstractnum_hash_[_key];
|
|
end;
|
|
|
|
function NumberingAdapter.WriteAbstractNumId(_key: string; _value: tslobj);
|
|
begin
|
|
abstractnum_hash_[_key] := _value;
|
|
end;
|
|
|
|
function NumberingAdapter.ReadNumId(_key: string);
|
|
begin
|
|
return num_hash_[_key];
|
|
end;
|
|
|
|
function NumberingAdapter.WriteNumId(_key: string; _value: tslobj);
|
|
begin
|
|
num_hash_[_key] := _value;
|
|
end;
|