🚀 go-pugleaf

Hey all

Could someone please explain me these piece of code:

  tPolygonRec = Record
  ...
  ...
  Case Integer of  { Cases for the various polygon types }
      1 : (AB1, AB2, AB3 : UVCoord; Intensity : Byte);
      2 : (AB4, AB5, AB6 : UVCoord; I1, I2, I3 : Byte);
      3 : (AB7, AB8, AB9 : UVCoord);
      4 : (UV1, UV2, UV3 : UVCoord);
      5 : (AC1, AC2, AC3 : UVCoord; I_tensity : Byte);
      6 : (AC4, AC5, AC6 : UVCoord; I4, I5, I6 : Byte);
      7 : (AC7, AC8, AC9 : UVCoord; PT1, PT2, PT3 : UVCoord);
  End;

-or-

Type Register = Record
    Case Byte of
      0  : (w1, w2  : Word);
      1  : (b1, b2, b3, b4 : Byte);
  End;

(I copied these pieces of code from somebody elses sources)

What i don't understand is the 'CASE' statements in these records. Can
someone please explain to me how i use 'CASE' in records and why this is
useful??  Thnx in advance!

Grtnx
Xy