Вывод файла на экран

← →
Странник81 © (2007-09-05 16:05) [0]

Есть текстовый файл.Как можно посмотреть(на экране) его содержимое в виде бит?

← →
Германн © (2007-09-05 16:07) [1]

> Странник81 © (05.09.07 16:05)
>
> Есть текстовый файл.Как можно посмотреть(на экране) его
> содержимое в виде бит?
>

Total Commander тебе поможет.

← →
clickmaker © (2007-09-05 16:09) [2]

> его содержимое в виде бит?

именно бит? ноликов и единичек?

← →
Странник81 © (2007-09-05 16:13) [3]

Именно в виде 0 и 1

← →
Германн © (2007-09-05 16:21) [4]

> Странник81 © (05.09.07 16:13) [3]
>
> Именно в виде 0 и 1
>

Тогда и ТС не поможет :(
Может всё-таки согласишься на шеснадцатиричное представление?

function Char2Bin(ch: byte): string;
var i: integer;
begin
Result := "";
for i := 7 downto 0 do begin
Result := Result + Format("%d", [(ch shr i) and 1]);
end;
end;

обмолотить весь файл - домашнее задание

function LoadBin(FileName: string): string;
// ------------------------------------------------------- \\
function NonDecNumSys(num:integer; i:byte):string;
var
k : integer;
s : string[2];
begin
result:="";
k:=abs(num);
repeat
str(k mod i, s);
if s="10" then s:="A";
if s="11" then s:="B";
if s="12" then s:="C";
if s="13" then s:="D";
if s="14" then s:="E";
if s="15" then s:="F";
result:=s+result;

k:=k div i;
until k=0;
while length(result)<8 do
result:="0"+result;
end;
// ------------------------------------------------------- \\
type
TByteArray = array [0..0] of byte;
PByteArray = ^TByteArray;
var
F : HFILE;
P : Pointer;
S, T : Cardinal;
wfd : WIN32_FIND_DATA;
begin
Result:="";
F:=CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if F=INVALID_HANDLE_VALUE then exit;
FindFirstFile(PChar(FileName), wfd);
S:=wfd.nFileSizeLow;
LongInt(P):=LocalAlloc(GMEM_FIXED, S);
ReadFile(F, P^, S, T, nil);

for T:=0 to S-1 do
Result:=Result+NonDecNumSys(PByteArray(P)[T], 2)+" ";

LocalFree(LongInt(P));
CloseHandle(F);
end;

Вывод файла на экран Найти похожие ветки