GUID问题[问题]

lyz

x3中SysUtils.CreateGUID(G);会报错。CLRun.bpl出错。谁帮我解决下。谢谢！！

amao800613

用下面的语句：
  Edit1.Text := JSCommon.CreateGUIDStr;

amao800613

procedure TMainForm.Button1Click(Sender: TObject);
var
  lg:TGUID;
begin
   SysUtils.CreateGUID(lg);//参数是TGUID枚举型
   Edit1.Text := sysUtils.IntToStr(lg.D1)+sysUtils.IntToStr(lg.D2)
              +sysUtils.IntToStr(lg.D3)+sysUtils.IntToStr(lg.D4);
   //Edit1.Text := JSCommon.CreateGUIDStr;
end;

lyz

谢谢，第二楼的方法可以。