各位帮我看看，这段VC的代码如果用delphi怎么写

Question

unsigned char CheckSumCalulate(unsigned char * pBuffer, unsigned char len)
{
unsigned i;
unsigned char checksum = 0;
unsigned char tmp = 0; for(i = 0;i< len; i++)
{
tmp + = pBuffer[i];
} checksum = ~tmp + 1;
return  checksum;
}

Answer 1

function Tbom.checknode(pnode:TTreeNode):integer;
var
i:integer;
begin
 for i:=1 to treeview1.Items.Count-1 do
  if pnode=mynodetable[i] then
   begin
   checknode:=i;
   end;
end;可以模仿一下，，，，

Answer 2

function CheckSumCalucate(pBuffer: PByte;  len: Byte): Byte;
var
  i   : Byte;
  tmp : Byte;
begin
  tmp := 0;
  for i := 1 to len do
  begin
    tmp := tmp + pBuffer^;
    inc (pBuffer);
  end;
  CheckSumCalucate := not tmp + 1;
end;