소스 검색

Quick.Azure: small leak

Unknown 7 년 전
부모
커밋
62188a56e9
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      Quick.Azure.pas

+ 2 - 0
Quick.Azure.pas

@@ -491,6 +491,8 @@ begin
         try
           if (Assigned(azBlobList)) and (azBlobList.Count > 0) and (CloudResponseInfo.StatusCode = 200) then Result := True;
         finally
+          //frees azbloblist objects
+          for azBlob in azBlobList do azBlob.Free;
           azBlobList.Free;
         end;
       finally