1. 修复文档的生成

2. 修复InlineShapes.Count
2024-02-01 15:07:54 +08:00
parent 3ba20a7c5e
commit dffa3f8192
3 changed files with 4 additions and 2 deletions
@@ -441,7 +441,8 @@ Begin
 			if result[0][4] then rw["w"] := 1;
 			properties[result[0][1]] := rw;
 		end
-		if AnsiContainsText(line, "End;") then break;
+		if StartsText("End;", line) then break;
+		// if AnsiContainsText(line, "End;") then break;
 	end
 	for j:=i to length(lines)-1 do
 	begin