среда Делфи

[katena_novoch]

Класс TBin Однобайтное двоичное число
Поля fNam1 Имя переменной
fV1 Значение числа
Методы Create Создание и инициализация объекта
SetVa1l Установка исходного значения числа
Info1 Получение информации о полях объекта
Not1 Инверсия числа
RL1 Сдвиг числа на разряд влево
RR1 Сдвиг числа на разряд вправо
And1 Логическое умножение двух чисел
OrBin1 Логическое сложение двух чисел

[katena_novoch]

за ранее большое спасибо!!!

[alexiz]

Сообщение от katena_novoch

Класс TBin Однобайтное двоичное число
Поля fNam1 Имя переменной...

Мдя.. какой то поток сознания. Что, где, когда?

[Zer0]

Попробую интерпретировать

type
    TBin = class //класс, в котором идет интерпретирование однобайтового двоичного числа
       private
         fName:string[8]; //строка в которой хранится текст "0000101"
         fVal:byte; //значение этого числа "5"
       public
         constructor Create; //конструктор класса
         procedure SetVal(vaue:string[8]); //расчет значения для битового числа
         function Info:string; //хрен знает, что значит информация о полях
         procedure bNot; //инверсия числа
         procedure RL; //сдвиг побитовый влево
         procedure RR; //..и вправо
         procedure bAnd(a:TBin);//логическое И с другим таким числом
         procedure bOr(a:TBin);//логическое ИЛИ с другим таким числом
end;

Нужно это все реализовать, пусть ТС поправит, если что не так понял