unit uRegModel;

interface


type
 // SERIOVE CISLO VE FORMATU
 ////////////////////////////////////////////////////////////////////////
 //                                                                    //
 // ID   NAME                MODUL           DemoProgUpd LLinLInsCRC   //
 // DDDDDNNNNNNNNNNNNNNNNNNNNMMMMMMMMMMMMMMMMDDDDPPPPUUUULLLLCCCC!!!!! //
 //                                                                    //
 ////////////////////////////////////////////////////////////////////////
 TRegDataInfo = Record
                  id                      : String[15];
                  name                    : String[100];
                  module                  : int64;
                  Date_Install            : String[30];
                  Date_Activate           : String[30];
                  Date_Demo               : String[30];
                  Date_Program            : String[30];
                  Date_Update             : String[30];
                  Licence_Count_Line      : Int64;
                  Licence_Count_Install   : Int64;
                  Serial_Number           : String[255];
                  Hardware_Number         : String[255];
                  Activate_Code           : String[255];
                End;

 TRegDataCount = Record
                   reserve  : Int64;
                   position : Integer;
                   i        : Array[1..100] of Int64;
                 End;

  TRegData = Record
               count : TRegDataCount;
               data  : Array [1..100] of TRegDataInfo;
             End;



implementation

end.
