бинарное чтение файла..

[Gerry]

Как? То есть мне нужно реализовать с помощью Делфи открытие любого файла и чтение его побитово...то есть чтение какого нибудь файла допустим в райчедит...чтобы показывало не содержимое файла, а побитовое чтение вроде 010110001110101101 ........ как это сделать? с примером если можно, новичок(

[Пепел Феникса]

читайте например по байту и далее преобразуйте байт в битовую строку

[Gerry]

с примером если можно, новичок(

............

[Stilet]

Так подойдет?

var f:file of byte;i,b:byte;  s:string;
begin
 AssignFile(f,'c:\temp\input.txt'); reset(f);
 while not Eof(f) do begin
  read(f,b);s:='';
  for i:=0 to 8 do begin
     if (b and 1)=1 then s:=s+'1' else s:=s+'0';
     b:=b shr 1;
  end;
  writeln(s);
 end;
 readln;
end.