TGUID¶

type
  TGUID = packed record
    class operator =(const aLeft: TGUID; const aRight: TGUID) : Boolean;
    class operator <>(const aLeft: TGUID; const aRight: TGUID) : Boolean;
    class function Empty : TGUID;
    class function Create(const aData; aBigEndian: Boolean=False) : TGUID; overload;
    class function Create(const aData: Array of Byte; 
                     aStartIndex: Cardinal; aBigEndian: Boolean=False)
                      : TGUID; overload;
    class function Create(const aData: PByte; aBigEndian: Boolean=False)
                      : TGUID; overload;
    class function FromString : Boolean;
    function IsEmpty : Boolean;
    function AsString : ShortString;
    case Integer of
      1: (
        Data1 : DWord;
        Data2 : Word;
        Data3 : Word;
        Data4 : Array[0..7] of Byte;
      );
      2: (
        D1 : DWord;
        D2 : Word;
        D3 : Word;
        D4 : Array[0..7] of Byte;
      );
      3: (
        time_low : DWord;
        time_mid : Word;
        time_hi_and_version : Word;
        clock_seq_hi_and_reserved : Byte;
        clock_seq_low : Byte;
        node : Array[0..5] of Byte;
      );
  end;