Delphi XE - TGuidHelper

2021-03-07 16:28

阅读:406

标签:new   phi   bytearray   delphi   string   nes   cli   ring   object   

procedure TForm1.btn2Click(Sender: TObject);
var
  G: TGUID;
  S: string;
  bs: TBytes;
begin
  G := G.NewGuid;
  S := G.ToString;       //{9B60BA3F-8EE5-448F-BC9B-64FD98685ADB}
  mmo1.Lines.Add(S);
  bs := G.ToByteArray;
end;

 

Delphi XE - TGuidHelper

标签:new   phi   bytearray   delphi   string   nes   cli   ring   object   

原文地址:https://www.cnblogs.com/redhat588/p/12821238.html


评论


亲,登录后才可以留言!