浏览代码

* Merge removal of += from trunk

git-svn-id: branches/fixes_2_0@2027 -
daniel 20 年之前
父节点
当前提交
e1ccda3139
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/extra/ptc/dos/cga/cga.pp

+ 2 - 2
packages/extra/ptc/dos/cga/cga.pp

@@ -197,7 +197,7 @@ Begin
     End;
   End;
 
-  error += Round(Sqrt(mindist) * 290);
+  error:=error+round(Sqrt(mindist) * 290);
   Case dither Of
     0 : best2 := best1;
     1 : Begin
@@ -226,7 +226,7 @@ Begin
       b := s[0];
       g := s[1];
       r := s[2];
-      CGACalcError += precalcerror[back, pal]^[b Shr 4, g Shr 4, r Shr 4];
+      inc(CGACalcError,precalcerror[back, pal]^[b Shr 4, g Shr 4, r Shr 4]);
       Inc(s, 4{ + 4 + 4 + 4});
     End;
 //    Inc(s, 320*4*3);