record 高级用法,DELPHIXE支持

type 

  TMyRecord = record 

      type
       TInnerColorType = Integer; 

      var
       Red: Integer; 

      class var
       Blue: Integer; 

      procedure printRed(); 

      constructor Create(val: Integer); 

      property RedProperty: TInnerColorType read Red write Red; 

      class property BlueProp: TInnerColorType read Blue write Blue; 

  end;
  

  constructor TMyRecord.Create(val: Integer); 

  begin

   Red := val; 

  end;
  

  procedure TMyRecord.printRed; 

  begin 

    Writeln('Red: ', Red);

 end;