From 1edca76490fad22d7bce61d15074f369357eea40 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 3 Jun 2012 14:54:44 +0000
Subject: [PATCH]  * Patch from #22183 by Luiz. Fix a copy paste error and  
 change some redundant AS statements to casts. (redundant   because they were
 found by find for the respective type)

git-svn-id: trunk@21476 -
---
 packages/fcl-json/src/fpjson.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-json/src/fpjson.pp b/packages/fcl-json/src/fpjson.pp
index af3bd66131..46453958aa 100644
--- a/packages/fcl-json/src/fpjson.pp
+++ b/packages/fcl-json/src/fpjson.pp
@@ -2118,7 +2118,7 @@ Var
   D : TJSONData;
 
 begin
-  D:=Find(AName,jtBoolean);
+  D:=Find(AName,jtString);
   If (D<>Nil) then
     Result:=D.AsString
   else
@@ -2133,7 +2133,7 @@ Var
 begin
   D:=Find(AName,jtArray);
   If (D<>Nil) then
-    Result:=D As TJSONArray
+    Result:=TJSONArray(D)
   else
     Result:=ADefault;
 end;
@@ -2146,7 +2146,7 @@ Var
 begin
   D:=Find(AName,jtObject);
   If (D<>Nil) then
-    Result:=D as TJSONObject
+    Result:=TJSONObject(D)
   else
     Result:=ADefault;
 end;