* Added ability to sort TJSONArray

git-svn-id: trunk@32038 -

packages/fcl-json/src/fpjson.pp

@@ -430,6 +430,7 @@ Type
     procedure Insert(Index: Integer; AnObject: TJSONObject);
     procedure Move(CurIndex, NewIndex: Integer);
     Procedure Remove(Item : TJSONData);
+    Procedure Sort(Compare: TListSortCompare);
     // Easy Access Properties.
     property Items;default;
     Property Types[Index : Integer] : TJSONType Read GetTypes;
@@ -2338,6 +2339,11 @@ begin
   FList.Remove(Item);
 end;
 
+procedure TJSONArray.Sort(Compare: TListSortCompare);
+begin
+  FList.Sort(Compare);
+end;
+
 { TJSONObject }
 
 function TJSONObject.GetArrays(const AName: String): TJSONArray;