type

TGUID struc
  ulong D1
  word D2
  word D3
  array[8] of byte D4
ends:displ=('{',HEX(@.D1,8),'-',HEX(@.D2,4),'-',HEX(@.D3,4),'-',
  HEX(@.D4[0],2),HEX(@.D4[1],2),'-', HEX(@.D4[2],2),HEX(@.D4[3],2),
  HEX(@.D4[4],2),HEX(@.D4[5],2),HEX(@.D4[6],2),HEX(@.D4[7],2),'}')

Other specifications.

FlexT home page, Author`s home page.