获取GUID的方法

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;