Browse Source

* Initialize result string

(cherry picked from commit b9aeeaa6e3bab21e578e67c1a66ed1bf94fec4a0)
Michaël Van Canneyt 2 years ago
parent
commit
ccfc68fc70
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-pdf/src/fppdfscanner.pp

+ 1 - 0
packages/fcl-pdf/src/fppdfscanner.pp

@@ -586,6 +586,7 @@ Var
   lRes,lRawlen : Integer;
   lRes,lRawlen : Integer;
 
 
 begin
 begin
+  Result:='';
   aValue:=Char(aStartByte)+GetTillByte(Ord('>'));
   aValue:=Char(aStartByte)+GetTillByte(Ord('>'));
   lRawlen:=Length(aValue) div 2;
   lRawlen:=Length(aValue) div 2;
   SetLength(Result{%H-},lRawLen);
   SetLength(Result{%H-},lRawLen);