比较这两段代码,那段代码比较好,谈谈见解。

                            
   
  //代码一  
  var  
      HostName:String;  
      Size:DWord;  
  begin  
      SetLength(HostName,64);  
      if   not   GetComputerName(PChar(HostName),Size)   then  
          ShowMessage('Something   error!');  
      HostName:=Copy(HostName,1,Pos(#0,HostName)-1);  
      //HostName是以#0结尾的,去掉#0以后的东东  
      ShowMessage(HostName);  
  end;  
   
  //代码二  
  var  
        CNameBuffer   :   PChar;  
      fl_loaded   :   Boolean;  
      CLen   :   ^DWord;  
      ComputerName:String;  
  begin  
   
          GetMem(CNameBuffer,255);  
          New(CLen);  
          CLen^:=   255;  
   
          fl_loaded   :=   GetComputerName(CNameBuffer,CLen^);  
   
          if   fl_loaded   then  
              ComputerName   :=   StrPas(CNameBuffer)  
          else  
              ComputerName   :=   'Unkown';  
   
          FreeMem(CNameBuffer,255);  
          Dispose(CLen);  
          ShowMessage(ComputerName);  
  end;  
   
 

查看回复