paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TJSONArray.Extract by Luiz, mantis #23677

Browse Source 
git-svn-id: trunk@23896 -
This commit is contained in:
marco 2013-03-17 16:11:08 +00:00
parent fdde11fcc8
commit 7f3f0e538b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-json/src/fpjson.pp
View File

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