OSDN Git Service

アクションテストでメモリリークしていたのを解消(2)。
authorE01 <e01@users.sourceforge.jp>
Sun, 10 Jul 2005 01:17:07 +0000 (01:17 +0000)
committerE01 <e01@users.sourceforge.jp>
Sun, 10 Jul 2005 01:17:07 +0000 (01:17 +0000)
bottleclient/LogForm.pas

index 1be5a7e..2206bed 100755 (executable)
@@ -417,9 +417,11 @@ begin
   try
     //\83A\83N\83V\83\87\83\93\82ª\97L\8cø\82Å\82 \82ê\82Î\92Ê\8fí\8f\88\97\9d\8fÈ\97ª
     if FAction then
+    begin
       //\8c^\95Ï\8a·\82Æ\8eó\90M
-      frmSender.BottleCnv(CueItem)
-    else
+      frmSender.BottleCnv(CueItem);
+      CueItem.FreeInstance;
+    end else
     begin
       //\83`\83\83\83\93\83l\83\8b\83S\81[\83X\83g\91Î\8dô
       if CueItem.Ghost = '' then