freepascal.ru

Код: Выделить всё

type
  TUnitValue = record
     Value: float;
     Unit: TBaseUnit;
  end;

  TBaseUnit = record // в системе СИ
     L: TRational;
     M: TRational;
     ....
    J: : TRational;
  end;
 

Код: Выделить всё

   //Тип строения
   TBuildingType = (
       btUnknow,                    //- Неопределено
       btGround,                    //- Площадка географическая
       btBuilding,                  //- Здание/Строение
       btArea,                      //- Резервное значение
       btFloor,                     //- Этаж/Уровень/Площадка внутри здания
       btRoom,                      //- Комната/Помещение
       btLevel,                     //- Отметка
       btLogicalType,               //- Условный объект
       btSection                    //- Секция
   );

Код: Выделить всё

   //Стадия строительства
   TLookWorkType = (
       lwtNone,                     //- Неопределено
       lwtNew,                      //- Новое
       lwtReconstruction,           //- Реконструкция
       lwtExistent                  //- Сущетвующий
   );