|
@@ -679,7 +679,7 @@ begin
|
|
|
AzContainers := BlobService.ListContainers(cNextMarker,AzParams,CloudResponseInfo);
|
|
AzContainers := BlobService.ListContainers(cNextMarker,AzParams,CloudResponseInfo);
|
|
|
try
|
|
try
|
|
|
azResponseInfo := GetResponseInfo(CloudResponseInfo);
|
|
azResponseInfo := GetResponseInfo(CloudResponseInfo);
|
|
|
- if (azResponseInfo.StatusCode = 200) and (Assigned(AzContainer)) then
|
|
|
|
|
|
|
+ if (azResponseInfo.StatusCode = 200) and (Assigned(AzContainers)) then
|
|
|
begin
|
|
begin
|
|
|
for AzContainer in AzContainers do
|
|
for AzContainer in AzContainers do
|
|
|
begin
|
|
begin
|
Unknown