网络收藏

在delphi中，ctrl+shift+g就生成了，可是用代码呢？  
   
 

推荐阅读

createguid()

1,function   createclassid:   string;  
  var  
      classid:   tclsid;  
      p:   pwidechar;  
  begin  
      cocreateguid(classid);  
      stringfromclsid(classid,   p);  
      result   :=   p;  
      cotaskmemfree(p);  
  end;  
  2,  
  function   tfrmcar_addcar.createcar_uuid:   string;  
  var  
      tempuuid:tguid;  
  begin  
      createguid(tempuuid);  
      result:=guidtostring(tempuuid);  
  end;