* Fix uninitialized result warning

git-svn-id: trunk@42983 -

packages/fcl-web/src/base/httpprotocol.pp

@@ -158,6 +158,7 @@ var
 
 begin
   L:=Length(Astr);
+  Result:='';
   SetLength(Result,L);
   If (L=0) then
     exit;
@@ -213,6 +214,7 @@ var
 
 begin
   L:=Length(AStr);
+  Result:='';
   SetLength(Result,L*3); // Worst case scenario
   if (L=0) then
     exit;