特急,请高手帮我看一下以下的C编写为delphi对吗?若有不妥,请高手编写一下.谢谢

Question

c:如下
expand0(in,out)
unsigned char *in;
char *out;
{
int divide;
int i,j; for (i=0;i<8;i++)
{
divide=0x80;
for (j=0;j<8;j++)
{
*out++=(in[i]/divide)&1;
divide/=2;
}
}
}
delphi:如下
procedure Expand0(InStr:Array of Byte;Var OutStr : Array of Byte);
Var
  divide,i,j :integer;
Begin
  FillChar(outStr, 8, 0);
  For i := 0 To 7 Do Begin
    Divide := $80;
    For j := 0 To 7 Do Begin
      @OutStr := @OutStr + (Instr[i] / Divide) and 1;
      Divide := divide / 2;
    End
  end;
end;

Answer 1

指针用pcharInStr: pchar; outstr: pchar(outstr+j)^ := (((instr+i)^) div divide) and $01;
divide := divide div 2;