Ver código fonte

* Fix memleaks

Michaël Van Canneyt 2 dias atrás
pai
commit
200a10a187
1 arquivos alterados com 9 adições e 3 exclusões
  1. 9 3
      packages/fcl-md/demo/md2latex.lpr

+ 9 - 3
packages/fcl-md/demo/md2latex.lpr

@@ -1,5 +1,8 @@
 program md2latex;
 
+{$mode objfpc}
+{$h+}
+
 uses
   classes,
   markdown.utils,
@@ -15,27 +18,30 @@ uses
 var
   Source,Dest : TStringList;
   Doc : TMarkDownDocument;
+  Renderer: TMarkDownLatexRenderer;
 
 begin
   Dest:=Nil;
+  Renderer:=Nil;
   Source:=TStringList.Create;
   try
     Dest:=TStringList.Create;
     Source.LoadFromFile(ParamStr(1));
     Doc:=TMarkDownParser.FastParse(Source,[]);
-    With TMarkDownLatexRenderer.Create(Nil) do
-      begin
+    Renderer:=TMarkDownLatexRenderer.Create(Nil);
+    With Renderer do
+      begin 
       Options:=[loEnvelope];
       If ParamStr(2)='' then
         Writeln(RenderLaTeX(Doc))
       else
         begin
-        Dest:=TStringList.Create;
         RenderDocument(Doc,Dest);
         Dest.SaveToFile(ParamStr(2));
         end;
       end;
   finally
+    Renderer.Free;
     Source.Free;
     Dest.Free;
   end;