C代码转换成DELPHI。（紧急）

Question

拿位兄弟帮助我下面C代码转换成DELPHI。void  DWORD2Char(char* Buffer,DWORD Value)
{
       DWORD Status,TmpSatus;
 TmpSatus=Value;
 int i1,i2,i3,i4;
 i1=0;i2=0;i3=0;i4=0;
 i1=TmpSatus/(256*256*256);
      Status=TmpSatus%(256*256*256);
      TmpSatus=Status;      i2=TmpSatus/(256*256);
      Status=TmpSatus%(256*256);
      TmpSatus=Status;  i3=TmpSatus/(256);
      Status=TmpSatus%(256);
      TmpSatus=Status;
     
 i4=TmpSatus;
       Buffer[0]=(BYTE)i1;
 Buffer[1]=(BYTE)i2;
 Buffer[2]=(BYTE)i3;
 Buffer[3]=(BYTE)i4;
     
return;
}

Answer 1

procedure DWORD2Char(Buffer : string, Value : Smallint);
var
  Status,TmpSatus : SmallInt;
  i1,i2,i3,i4 : integer;
begin
  TmpSatus=Value;
  i1=0;i2=0;i3=0;i4=0;
  i1=TmpSatus/(256*256*256);
  Status=TmpSatus MOD (256*256*256);
  TmpSatus=Status;
  i2=TmpSatus/(256*256);
  Status=TmpSatus MOD (256*256);
  TmpSatus=Status;
  i3=TmpSatus/(256);
  Status=TmpSatus MOD (256);
  TmpSatus=Status;
  
  i4=TmpSatus;
   Buffer[0]=BYTE(i1);
   Buffer[1]=BYTE(i2);
   Buffer[2]=BYTE(i3);
   Buffer[3]=BYTE(i4);
你是想做一个加密程序吗？

Answer 2

再发再发。来晚了
procedure DWORD2Char(Buffer : string, Value : Smallint);
var
  Status,TmpSatus : SmallInt;
  i1,i2,i3,i4 : integer;
begin
  TmpSatus=Value;
  i1=0;i2=0;i3=0;i4=0;
  i1=TmpSatus/(256*256*256);
  Status=TmpSatus MOD (256*256*256);
  TmpSatus=Status;
  i2=TmpSatus/(256*256);
  Status=TmpSatus MOD (256*256);
  TmpSatus=Status;
  i3=TmpSatus/(256);
  Status=TmpSatus MOD (256);
  TmpSatus=Status;
  
  i4=TmpSatus;
   Buffer[0]=BYTE(i1);
   Buffer[1]=BYTE(i2);
   Buffer[2]=BYTE(i3);
   Buffer[3]=BYTE(i4);