请高手转换一段vc++代码

这段vc++代码用delphi怎么写:  
    //这是类  
    class   CInitParam  
    {  
      public:  
            CInitParam()  
            {  
                m_Ip=0;  
                m_Port=0;  
                m_ShowLog=false;  
              }  
      public:  
          char*   m_IP;  
          unsigned   short   m_Port;  
          bool   m_ShowLog;  
      }  
    //这是一个函数，代码略  
    init   Initialize(CInitParam*   pParam);  
   
    //这是调用代码  
   
      CInitParam   x;  
      x.m_Ip="192.168.0.1";  
      x.m_Port=80;  
      x.m_ShowLog=true;  
      Initialize(&x);  
  问题点数：80、回复次数：2Top

1 楼unsigned（僵哥(发站内消息，请附上链接或问题说明，否则不予回复)）回复于 2005-07-23 01:18:49 得分 80

type  
      TInitParam=class  
      public  
            constructor   Create;  
      public  
          m_IP:PChar;  
          m_Port:Word;  
          m_ShowLog:Boolean;  
      end;  
      procedure   Initialize(var   pParam:TInitParam);  
  implementation  
   
  constructor   TInitParam.Create;  
  begin  
                m_Ip:=nil;  
                m_Port:=0;  
                m_ShowLog:=False;  
  end;  
   
  //调用代码  
   
  var    
    x:TInitParam;  
  begin  
        x:=TInitParam.Create;  
        x.m_Ip:='192.168.0.1';  
        x.m_Port:=80;  
        x.m_ShowLog:=True;  
        Initialize(x);  
  end;  
  Top

2 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-07-23 06:26:45 得分 0

厉害，已经可以了  
                        －－盗版Top

相关问题

• vc++
• 代码
• ip
• tinitparam
• showlog
• cinitparam
• port
• initialize
• create

• 帖主：jsyzwx
• unsigned

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载