Explorar o código

* Patch from Cyrax to initialize search index (bug id 32173)

git-svn-id: trunk@36751 -
michael %!s(int64=8) %!d(string=hai) anos
pai
achega
d975ec6d0b
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      packages/fcl-base/src/custapp.pp

+ 1 - 0
packages/fcl-base/src/custapp.pp

@@ -430,6 +430,7 @@ Var
 begin
   SetLength(Result,ParamCount);
   Cnt:=0;
+  I:=-1;
   Repeat
     I:=FindOptionIndex(C,B,I);
     If I<>-1 then