49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
type TSNumberingWare = class
|
|
public
|
|
function Create(number: NumberingAdapter);
|
|
function GetNumberLvl(ppr: PPr);
|
|
|
|
private
|
|
numbering_adapter_: NumberingAdapter;
|
|
num_hash_: array of tslobj;
|
|
end;
|
|
|
|
function TSNumberingWare.Create(number: NumberingAdapter);
|
|
begin
|
|
numbering_adapter_ := new NumberingAdapter(number);
|
|
num_hash_ := array();
|
|
end;
|
|
|
|
function TSNumberingWare.GetNumberLvl(ppr: PPr);
|
|
begin
|
|
num_id := ppr.NumPr.NumId.Val;
|
|
if ifnil(num_id) then return array("", nil);
|
|
ilvl := ppr.NumPr.Ilvl.Val;
|
|
pstyle := ppr.PStyle.Val;
|
|
num := numbering_adapter_.NumId(num_id);
|
|
abstract_id := num.AbstractNumId.Val;
|
|
abstract_num := numbering_adapter_.AbstractNumId(abstract_id);
|
|
lvls := abstract_num.Lvls();
|
|
if ifnil(ilvl) then ilvl := "0";
|
|
for k,v in lvls do
|
|
begin
|
|
if ilvl and v.Ilvl = ilvl then
|
|
begin
|
|
lvl_text := v.LvlText.Val;
|
|
if not ifarray(num_hash_[num_id]) then num_hash_[num_id] := array(0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
ilvl_int := strtoint(ilvl);
|
|
for i:=0 to ilvl_int do
|
|
begin
|
|
source_str := "%" $ (i + 1);
|
|
n := i = ilvl_int ? num_hash_[num_id][i] + 1 : num_hash_[num_id][i];
|
|
dest_str := format("%d", n);
|
|
lvl_text := replaceStr(lvl_text, source_str, dest_str);
|
|
end
|
|
num_hash_[num_id][ilvl_int]++;
|
|
if v.Suff.Val = "space" then lvl_text += " ";
|
|
return array(lvl_text, v);
|
|
end
|
|
end
|
|
return array("", nil);
|
|
end
|