GuidToString (Delphi)

Description

The following example manufactures a GUID and displays it in a dialog box after translating it to a string.

Code

uses ActiveX, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
  G: TGUID;
begin
  OleCheck(CoCreateGuid(G));
  ShowMessage(SysUtils.GUIDToString(G));
end;

Uses

• System.SysUtils.GUIDToString ( fr | de | ja )
• System.Win.ComObj.OleCheck ( fr | de | ja )