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