Browse Source

* Fix uninitialized var warning

git-svn-id: trunk@42979 -
michael 6 years ago
parent
commit
5f9f0c6b49
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-web/src/base/fphttpclient.pp

+ 1 - 0
packages/fcl-web/src/base/fphttpclient.pp

@@ -433,6 +433,7 @@ var
 begin
 begin
   l := Length(S);
   l := Length(S);
   if l=0 then exit;
   if l=0 then exit;
+  Result:='';
   SetLength(Result, l);
   SetLength(Result, l);
   P:=PChar(Result);
   P:=PChar(Result);
   i:=1;
   i:=1;