获取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('-',''));end;