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

[grib_aga]

Написал вот так, не работает:
Читаю первый байт в строку(буфер) и пытаюсь его сравнить с байтом, записанным заранее:

PHP код:

var    n, b: string;  
        FileFrom, FileTo: TFileStream;
 
        FileFrom := TFileStream.Create('filefrom.txt', fmOpenRead);
        FileTo := TFileStream.Create('outfile.txt', fmCreate);
        FileFrom.ReadBuffer(n, 1);
        b := 'мое значение';
        if n = b then Exit; 


Прыгал всяко-разно, но либо ошибки Access violation и Runtime Error, либо сравнение не валид.
Как исправить?

[Аватар]

Дык n и b объявить как Byte. Читать в String таким способом не получится

[Serge_Bliznykov]

FileFrom.ReadBuffer(n, 1);

Вы реально хотите прочитать 1 байт в строку n ?
Тогда это нужно делать так:

        FileTo := TFileStream.Create('outfile.txt', fmCreate);

        SetLength(n, 1); {выделим место в памяти под 1 символ}
        FileFrom.ReadBuffer(n[1], 1);

Кстати,

        b := 'мое значение';
        if n = b then Exit;

всегда будет Exit - один символ НИ КАК не может быть равен 12 символам ('мое значение')


p.s. И ещё, ВАЖНО!
Вы явно не учитываете какую кодировку имеет файл filefrom.txt

[grib_aga]

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

Вы реально хотите прочитать 1 байт в строку n ?

Спасибо. Да, желательно в строку или в инт.

У меня есть файл, в котором записана некоторая информация, все равно какая. Мне нужно взять первый байт из этого файла и сравнить его с эталоном. Например, есть текстовый файл, с содержимым 'MyDocument'(текст в документе без ковычек) и эталон - переменная, содержащая в себе байт(01001101). Нужно сравнить первый байт из файла и этот эталон на соответствие.
Выручай)

[FaTaL]

Ну так объяви эти переменные как byte, записывай в них значения и сравнивай. Вроде весь сам написал в первом посте.

[Serge_Bliznykov]

Сообщение от Аватар

Дык n и b объявить как Byte.

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

Ну так объяви эти переменные как byte, записывай в них значения и сравнивай. Вроде весь сам написал в первом посте.

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

Мне нужно взять первый байт из этого файла и сравнить его с эталоном.

дык,

var    n, b : byte;  
...
        try
           FileFrom := TFileStream.Create('filefrom.txt', fmOpenRead);

           FileFrom.ReadBuffer(n, 1);
           b := 77; { 01001101b = $4D = 77 }
           if n = b then Exit;  
           ...
           <... тут действия, если не совпали байты ...>
      finally
           FileFrom.Free; {обязательно освободим память и закроем хендл открытого файла!}
      end;

[grib_aga]

Serge_Bliznykov, Спасибо! Не подскажешь как теперь разложить байт на биты(например, в целочисленный массив) или перевести его в бинарное представление?

[FaTaL]

Вот тут есть его же код:
http://www.programmersforum.ru/showp...27&postcount=2

[Serge_Bliznykov]

FaTaL, спасибо за помощь!

grib_aga, ну, это же классическая задача, на форуме решалась over9000 раз!

например, через такую функцию:

function IntToBin(Value: Longint; Digits, Spaces: Integer): string;
begin
  Result := '';
  if Digits > 32 then
    Digits := 32;
  while Digits > 0 do
  begin
    if (Digits mod Spaces) = 0 then
      Result := Result + ' ';
    Dec(Digits);
    Result := Result + IntToStr((Value shr Digits) and 1);
  end;
end;

на входе десятичное число, на выходе - двоичное представление.
Digits - сколько цифр нужно получить в выходном двоичном числе.
Spaces - через сколько двоичных цифр вставлять пробел (если нужно число представить группами)

[grib_aga]

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

Вот тут есть его же код:
http://www.programmersforum.ru/showp...27&postcount=2

Спасибо! Но я тупой.

PHP код:


  for i:=8 downto 1 do begin
    b[i] := (A and 1);
    A := A shr 1;
  end; 


var A: Byte;
i: integer;
b: array of ... ? Битов? Мне нужен целочисленный массив.