Răsfoiți Sursa

* Fix AV when parsing list

Michaël Van Canneyt 1 săptămână în urmă
părinte
comite
501226c0f4
1 a modificat fișierele cu 4 adăugiri și 1 ștergeri
  1. 4 1
      packages/fcl-md/src/markdown.processors.pas

+ 4 - 1
packages/fcl-md/src/markdown.processors.pas

@@ -642,7 +642,10 @@ var
 begin
   lOldLastList:=FLastList;
   if inList(aParent.blocks, true, FMarker, Findent, 2, lList) then
-    lList.lastIndent:=FIndent
+    begin
+    lList.lastIndent:=FIndent;
+    FLastList:=lList;
+    end
   else
     begin
     lList:=TMarkDownListBlock.Create(aParent,aLine.LineNo);