uses QString; procedure TForm12.btn1Click(Sender: TObject); var g: TGUID; begin //方法1(Guid的Helper)--官方 mmo1.Lines.Add(TGuid.NewGuid.ToString); //去除两边的花括号 mmo1.Lines.Add(TGuid.NewGuid.ToString.Trim(['{','}'])); //去除两边花括号和中间的横线 mmo1.Lines.Add(TGuid.NewGuid.ToString.Trim(['{','}']).Replace('-','')); //方法2(QString里的函数) mmo1.Lines.Add(NewId.ToString); //方法3:(网上的笨蛋方法) CreateGUID(g); mmo1.Lines.Add(g.ToString); //方法4.ToString 还可以等价于GUIDToString mmo1.Lines.Add(GUIDToString(TGuid.NewGuid)); end;