我想一些C的代码改写成delphi的，请各位大侠帮帮忙~~~~~~~~~~~~~~~~

Question

以下语句我想写成delphi的，请各位大侠帮帮忙~~~~~~~~~~~~~~~~``
  char HostCode[5];
  char lp=0;  HostCode[0]=0xfD;  
  HostCode[1]=0xff;
  HostCode[2]=15 << 4;
  HostCode[2]=HostCode[2]| lp;
  HostCode[3]=0xFA;
  HostCode[4]=~(HostCode[1]+HostCode[2]+HostCode[3])+1;

Answer 1

var
  HostCode: array[0..4] of Byte;
  lp: Byte;
begin  HostCode[0] := $0FD;
  HostCode[1] := $0FF;
  HostCode[2] := 15 shl 4;
  HostCode[2] := HostCode[2] or lp;
  HostCode[3] := $0FA;
  HostCode[4] := not(HostCode[1] + HostCode[2] + HostCode[3]) + 1;
end;

Answer 2

楼上的 lp: Byte;没初始化，得不到楼主的要求  begin后增加一句lp := 0;

Answer 3

postren(小虫) ( ) 信誉：117  2006-06-23 10:02:00  得分: 0  
  楼上的 lp: Byte;没初始化，得不到楼主的要求
  begin后增加一句lp := 0;呵呵，一时不查写漏了。  
 

Answer 4

网上有一个叫做C2Pas的程序，用来把C语言转换为Pascal，很不错。不过不支持C++去google上搜一下。

Answer 5

http://www.drbob42.com/delphi/headconv.htm这也是一个非常不错的WUI界面的c头文件转pas的程序