* fix for regexpr unicode mode. (multiple a move with the size of the base char type)

     Patch by Ludo B., mantis #020806

git-svn-id: trunk@19754 -

packages/regexpr/src/regexpr.pas

@@ -1304,7 +1304,7 @@ function TRegExpr.GetMatch (Idx : integer) : RegExprString;
    then begin
      //SetString (Result, startp [idx], endp [idx] - startp [idx])
      SetLength(Result,endp [idx] - startp [idx]);
-     System.Move(startp [idx]^,Result[1],length(Result));
+     System.Move(startp [idx]^,Result[1],length(Result)*sizeof(REChar));
    end
    else Result := '';
  end; { of function TRegExpr.GetMatch