rtl: don't use c-style +=, -= in freebidi, utf8bidi since they can't be compiled with default options in this case

git-svn-id: trunk@15321 -

rtl/objpas/freebidi.pp

@@ -142,8 +142,8 @@ begin
   Count := Length(Src);
   while (Count > 0) do
   begin
-    Result += CharWidth(Src[Count], FontInfoPtr);
-    Count -= 1;
+    Result := Result + CharWidth(Src[Count], FontInfoPtr);
+    Count := Count - 1;
   end;
 end;
 
@@ -270,7 +270,7 @@ begin
       vp := Result[0];
     end;
     Insert(lp, Result, vp);
-    lp += 1;
+    lp := lp + 1;
   end;
 end;
 

rtl/objpas/utf8bidi.pp

@@ -174,7 +174,7 @@ begin
   vp := 1;
   Result := '';
   for vp := 1 to Length(Src) do
-    Result += UnicodeToUTF8(Src[vp]);
+    Result := Result + UnicodeToUTF8(Src[vp]);
 end;
 
 function UTF8ToUCS32(const UTF8Char:TUTF8Char):TUCS32Char;
@@ -223,10 +223,10 @@ begin
   SetLength(Result, Length(Src));
   while lp <= Length(Src) do
   begin
-    vp += 1;
+    vp := vp + 1;
     c := LCharOf(Src, lp);
     Result[vp] := WideChar(UTF8ToUCS16(c));
-    lp += Length(c);
+    lp := lp + Length(c);
   end;
   SetLength(Result, vp);
 end;