GuidCase¶

function GuidCase(const GUID: TGUID; 
                 const List: Array of TGUID = packed record
public
  TGUID.class operator =(const aLeft: TGUID; const aRight: TGUID)
                         : Boolean;
  TGUID.class operator <>(const aLeft: TGUID; const aRight: TGUID)
                          : Boolean;
  class function Empty : TGUID;  static;
  Create;
  class function FromString(const S: ShortString; out GUID: TGUID)
                            : Boolean;  static;
  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
)
                  : Integer;