From 66ec96e1677bfc1f7aae7eba649aa65134b79488 Mon Sep 17 00:00:00 2001 From: csh Date: Mon, 8 Jul 2024 15:24:55 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8D=E5=86=85=E5=AD=98=E6=B3=84?= =?UTF-8?q?=E6=BC=8F=EF=BC=9B=E5=AF=B9=E7=A9=BA=E6=AE=B5=E8=90=BD=E9=A1=B9?= =?UTF-8?q?=E7=9B=AE=E7=AC=A6=E5=8F=B7=E5=AE=B9=E9=94=99=E5=A4=84=E7=90=86?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ware/TSNumberingWare.tsf | 1 + ware/TSSectWare.tsf | 7 +++++++ 2 files changed, 8 insertions(+) diff --git a/ware/TSNumberingWare.tsf b/ware/TSNumberingWare.tsf index 14b9263..76ad419 100644 --- a/ware/TSNumberingWare.tsf +++ b/ware/TSNumberingWare.tsf @@ -21,6 +21,7 @@ begin ilvl := ppr.NumPr.Ilvl.Val; pstyle := ppr.PStyle.Val; num := numbering_adapter_.NumId(num_id); + if ifnil(num) then return array("", nil); abstract_id := num.AbstractNumId.Val; abstract_num := numbering_adapter_.AbstractNumId(abstract_id); lvls := abstract_num.Lvls(); diff --git a/ware/TSSectWare.tsf b/ware/TSSectWare.tsf index 85f089f..fabad0f 100644 --- a/ware/TSSectWare.tsf +++ b/ware/TSSectWare.tsf @@ -1,7 +1,9 @@ type TSSectWare = class public function Create(); + function Destroy(); function Do(); + function AddElement(element: tslobj); public Elements: array of tslobj; @@ -25,3 +27,8 @@ begin // println("Top = {}, Right = {}, Bottom = {}, Left = {}, Header = {}, Footer = {}\n", // self.SectPr.PgMar.Top, self.SectPr.PgMar.Right, self.SectPr.PgMar.Bottom, self.SectPr.PgMar.Left, self.SectPr.PgMar.Header, self.SectPr.PgMar.Footer); end; + +function TSSectWare.AddElement(element: tslobj); +begin + Elements[length(Elements)] := element; +end;