关于c语言与pascal语言的差别

                            
请问如何将下面c语言编写的程序改成delphi的代码啊   
  #define   UINT4     unsigned   long  
  unsigned   long     myipstr2long(ip_str)        
  char         *ip_str;  
  {  
    char         buf[6];  
    char         *ptr;  
    int           i;  
    int           count;  
    UINT4       ipaddr;  
    int           cur_byte;  
    ipaddr   =   (UINT4)0;  
   
                  for(i   =   0;i   <   4;i++)   {  
                                  ptr   =   buf;//共用一个地址;  
                                  count   =   0;  
                                  *ptr   =   '\0';  
                                  while(*ip_str   !=   '.'   &&   *ip_str   !=   '\0'   &&   count   <   4)   {  
                                                  if(!isdigit(*ip_str))   {  
                                                                  return((UINT4)0);  
                                                  }  
                                                  *ptr++   =   *ip_str++;  
                                                  count++;  
   
                                  }  
                                  if(count   >=   4   ||   count   ==   0)   {  
                                                  return((UINT4)0);  
                                  }  
                                  *ptr   =   '\0';  
                                  cur_byte   =   atoi(buf);  
                                  if(cur_byte   <   0   ||   cur_byte   >   255)   {  
                                                  return((UINT4)0);  
                                  }  
                                  ip_str++;  
                                  ipaddr   =   (ipaddr   <<   8)   |   (UINT4)cur_byte;  
                  }  
                  return(ipaddr);  
   
  }

查看回复