Fixes #11 issue.

bvarga · May 27, 2014 · 16b4dbf · 16b4dbf
1 parent 4bda32c
commit 16b4dbf
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/zmqapi.pas b/zmqapi.pas
@@ -828,7 +828,7 @@ constructor TZMQMsg.create;
 
 destructor TZMQMsg.Destroy;
 begin
-  msgs.Clear;
+  Clear;
   msgs.Free;
   inherited;
 end;
@@ -1017,6 +1017,8 @@ procedure TZMQMsg.Clear;
 begin
   for i := 0 to size - 1 do
     Item[i].Free;
+  msgs.Clear;
+  csize := 0;
   cursor := 0;
 end;