Переглянути джерело

* Also allow a single package dependency

git-svn-id: trunk@20573 -
joost 13 роки тому
батько
коміт
1bf8ef2428
1 змінених файлів з 7 додано та 6 видалено
  1. 7 6
      utils/fpgmake/fpmakeparsejson.pas

+ 7 - 6
utils/fpgmake/fpmakeparsejson.pas

@@ -122,13 +122,14 @@ var
   AJSonArray: TJSONArray;
   n: Integer;
 begin
-  if AJsonData.JSONType <> jtArray then
-    raise Exception.CreateFmt('Array expected but not found. (%s)',[AJsonData.AsString]);
-  AJSonArray := AJsonData as TJSONArray;
-  for n := 0 to AJSonArray.Count-1 do
+  if AJsonData.JSONType = jtArray then
     begin
-    ParseConditionalString(ACondStrings.add(''), AJSonArray.Items[n], ValueCaption);
-    end;
+    AJSonArray := AJsonData as TJSONArray;
+    for n := 0 to AJSonArray.Count-1 do
+      ParseConditionalString(ACondStrings.add(''), AJSonArray.Items[n], ValueCaption);
+    end
+  else
+    ParseConditionalString(ACondStrings.add(''), AJsonData, ValueCaption);
 end;
 
 procedure ParseUnitTarget(aTarget: TTarget; aJSONData: TJSONData);