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

* Patch from #22183 by Luiz. Fix a copy paste error and

Browse Source 
change some redundant AS statements to casts. (redundant 
  because they were found by find for the respective type)

git-svn-id: trunk@21476 -
This commit is contained in:
marco 2012-06-03 14:54:44 +00:00
parent 0b60e0dbcf
commit 1edca76490
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2118,7 +2118,7 @@ Var
D : TJSONData; D : TJSONData;
begin begin
D:=Find(AName,jtBoolean); D:=Find(AName,jtString);
If (D<>Nil) then If (D<>Nil) then
Result:=D.AsString Result:=D.AsString
else else
@ -2133,7 +2133,7 @@ Var
begin begin
D:=Find(AName,jtArray); D:=Find(AName,jtArray);
If (D<>Nil) then If (D<>Nil) then
Result:=D As TJSONArray Result:=TJSONArray(D)
else else
Result:=ADefault; Result:=ADefault;
end; end;
@ -2146,7 +2146,7 @@ Var
begin begin
D:=Find(AName,jtObject); D:=Find(AName,jtObject);
If (D<>Nil) then If (D<>Nil) then
Result:=D as TJSONObject Result:=TJSONObject(D)
else else
Result:=ADefault; Result:=ADefault;
end; end;