如何加快执行速度问题啊

Question

  For j := 0 To Bmp.Height - 1 Do
      Begin
        P := MainImage.Bitmap.Scanline[j];
        Q := Bmp.Scanline[j];
        Move(P[0], Q[0], Bmp.Width);
      End;请问这段代码该如何提高效率啊在图片有1万行的情况下，运行很慢

Answer 1

不就是复制一个张图么，干嘛非自己麻烦一行一行弄呢，而且你这种还只适合8位色的
BitBlt也行，Canvas提供的一堆复制也行，都比你这办法快