求哪位能把这个函数转为delphi吗？

Question

C# 转delphi

Answer 1

你这东西没啥特殊的，基本上都是byte数组赋值，array of byte
delphi有TBitmap，也可以获得Pixel

Answer 2

对C#不熟？还以为你对delphi不熟呢，那更应该不是问题 

Answer 3

Color pixelColor;这是过程还是什么？data[k / 8] += (byte)(128 >> (k % 8));+= >>这些是二元运算吗？

Answer 4

对DELPHI不熟
不过我可以给你讲这个是什么意思
Color pixelColor;就是定义了一个COLOR类型的变量啊,就是颜色.DELPHI里保证也有相应的类型
i+=2 => i=i+1,不过是个简写
>>右移位,位运算,i>>j表示把i右移j位
/ 除法
%取余数,delphi里应该是mod吧

Answer 5

i+=2 => i=i+1,手抽了
i+=2 <=> i=i+2

Answer 6

非常感谢各位！
我自己转了一下，麻烦帮看看转得对不对
前面的就不贴了，从下面的开始
for (int k = 0; k < 24; k++)转换后：for k:=0 to 23 do
          begin
            if (((i*24)+K)<myBMP.Height)  then
            begin
              Pixel := GetPixel(myBMP.Canvas.Handle,j,(i*24)+K);
              if  GetRValue(Pixel)=0   then
              begin
               // data[k div 8] += (byte)(128 >> (k % 8));
                data[k div 8]:= data[k div 8] + byte(128 shr (k mod 8));
              end;
            end;
          end;
          Write(F,chr(Data[0])+chr(Data[1])+chr(Data[2]));
          data[0]:=0;
          data[1]:=0;
          data[2]:=0;
        end;
        write(F,Char($A));