Отправлено oko 22 декабря 2004 г. 02:31 В ответ на: I, я так понимаю, это индекс для for()? Переменные однобайтовые? Опять же компилятор какой? Точнее вопрос надо задавать. отправлено Михаил Е. 22 декабря 2004 г. 02:01

FUNCTION INDECATOR_1(B,I: BYTE): BOOLEAN;
VAR
X:BYTE;
BEGIN
X:=1;
RESULT:=(b and (x shl (I-1)))<>0;
END;