Не получается сравнить прочитанный байт с эталоном

[Serge_Bliznykov]

var b:array[1..8] of integer; { можно  и array[1..8] of byte; }

[grib_aga]

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

function IntToBin(Value: Longint; Digits, Spaces: Integer): string;

Спасибо, работает, но способ со смещением удобней, ибо на вход подается байт.

[grib_aga]

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

var b:array[1..8] of integer; { можно  и array[1..8] of byte; }

Спасибо! Работает как часы.
P.S. Прошу тему пока не закрывать, т.к. скорее всего возникнут еще вопросы.

[s-andriano]

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

function IntToBin(Value: Longint; Digits, Spaces: Integer): string;

на входе десятичное число

Так вот откуда ноги растут!

Сначала корифеи называют внутреннее двоичное представление числа десятичным, а потом я на 5 страницах бодаюсь с новичками, пытаясь объяснить, что оно совсем не десятичное.

[Serge_Bliznykov]

за "корифея" - спасибо!

Насчёт машинного/десятичного представления спорить не буду,
1-х, меня явно не хватит на пять страниц,
2-х, спор ни о чём (я же помню, как Вы с Рома][а об одном и том же говорили, причём не понимая друг друга),
в третьих:

var x : integer;
begin
    x := 25;
    WriteLn(x);
end.

Вы же не будете спорить, что и константа у нас задана в коде в ДЕСЯТИЧНОМ виде и в результате выполнения WriteLn будет напечатано ДЕСЯТИЧНОЕ число ?

По сути замечания.
Согласен. Разумеется, если у нас параметер переменная типа LongInt, то ни о каком десятичном (да и двоичном) представлении говорить некорректно!

function IntToBin(Value: Longint; Digits, Spaces: Integer): string;

на входе десятичное число

Поэтому я с Вашим замечанием согласен. на входе ИСХОДНОЕ целое число для преобразования в двоичную строку.

на английском это звучит так:

Converts an integer into a binary string representation

или так:

The value to convert to a binary string representation.

Приношу свои извинения, если невольно ввёл кого-то в заблуждение...

[s-andriano]

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

var x : integer;
begin
    x := 25;
    WriteLn(x);
end.

Вы же не будете спорить, что и константа у нас задана в коде в ДЕСЯТИЧНОМ виде и в результате выполнения WriteLn будет напечатано ДЕСЯТИЧНОЕ число ?

Я надеюсь, и Вы не будете спорить, что integer хранится в компьютере именно в двоичной СС.
Кстати:
Вопрос: как перевести число из 2-чной СС в 10-чную?
Ответ: WriteLn(x);
Причем ответ - верный (хотя и с некоторыми оговорками).

Разумеется, если у нас параметер переменная типа LongInt, то ни о каком десятичном (да и двоичном) представлении говорить некорректно!

Если под словом "представление" подразумевать исключительно текстовую запись, то - безусловно.
Но исключительно потому, что числа хранятся в компьютере НЕ в виде текста. (т.е. отвергаем по критерию текст/не текст)
Если же нас интересует система счисления, а представление мы готовы трактовать довольно широко, то переменная хранится именно в двоичном представлении и ни в каком другом.

Поэтому я с Вашим замечанием согласен. на входе ИСХОДНОЕ целое число для преобразования в двоичную строку.

Ну да.
Я обычно пользуюсь термином во внутреннем представлении.
("исходное" - не совсем верно, в Вашем первом примере "исходное" - это запись десятичной константы в программе "x := 25;", компилятор преобразует его во внутреннее двоичное, а финальное - тоже десятичное, но уже на экране - результат обратного преобразования во время исполнения программы.)
В данном случае важно, что существует число, и существует его запись в виде текста, и это далеко не одно и то же.

[Serge_Bliznykov]

В данном случае важно, что существует число, и существует его запись в виде текста, и это далеко не одно и то же.

согласен.

Ну вот, вроде бы, разобрались с проблемой..

[grib_aga]

Как создать из массива чисел байт и записать его?
Делаю так:

   var a: array[1..8] of integer;
         i: integer;
         b: byte;
         FileTo: TFileStream;
begin
   FileTo := TFileStream.Create('test', fmCreate); 
   for i := 1 to 8 do
     a[i] := random(1);   
    

    b :=   ? Как преобразовать в байт?
      StreamTo.WriteBuffer(b, 1);

[Serge_Bliznykov]

b := ? Как преобразовать в байт?

если Вам нужен байт, то, вообще-то, зачем Вам массив A?

впрочем, хозяин - барин:

b:=0;
for i:=1 to 8 do
  b := (b shl 1) or A[i];

[grib_aga]

Serge_Bliznykov, спасибо.