--- Merging r23896 into '.':

U    packages/fcl-json/src/fpjson.pp

# revisions: 23896
r23896 | marco | 2013-03-17 17:11:08 +0100 (Sun, 17 Mar 2013) | 2 lines
Changed paths:
   M /trunk/packages/fcl-json/src/fpjson.pp

 * TJSONArray.Extract by Luiz, mantis #23677

git-svn-id: branches/fixes_2_6@24542 -

packages/fcl-json/src/fpjson.pp

@@ -314,6 +314,7 @@ Type
     function Add(AnObject: TJSONObject): Integer;
     Procedure Delete(Index : Integer);
     procedure Exchange(Index1, Index2: Integer);
+    function Extract(Item: TJSONData): TJSONData;
     procedure Insert(Index: Integer);
     procedure Insert(Index: Integer; Item : TJSONData);
     procedure Insert(Index: Integer; I : Integer);
@@ -1554,6 +1555,11 @@ begin
   FList.Exchange(Index1, Index2);
 end;
 
+function TJSONArray.Extract(Item: TJSONData): TJSONData;
+begin
+  Result := TJSONData(FList.Extract(Item));
+end;
+
 procedure TJSONArray.Insert(Index: Integer);
 begin
   Insert(Index,TJSONNull.Create);