Текущий архив: 2003.01.09;
Скачать: CL | DM;

Вниз

Загрузка файла в бинарном виде   Найти похожие ветки 

← →
Supreme   (2002-12-26 13:12) [0]

Как просмотреть файл c:\1.txt в Memo1 в двоичном виде (единици и нолики)??

---

← →
Reindeer Moss Eater   (2002-12-26 13:21) [1]

Каждый байт файла представить в виде строки нулей и единиц длиной 8 символов

---

← →
Song ©   (2002-12-26 13:30) [2]

По видимому в TStringGrid его загружать.

---

← →
Anatoly Podgoretsky ©   (2002-12-26 13:53) [3]

Не грузи в Memo1

---

← →
Supreme   (2002-12-26 19:13) [4]

OK. А как в TStringGrid??

---

← →
Supreme   (2002-12-27 16:33) [5]

??

---

← →
Supreme   (2002-12-28 10:52) [6]

Ну помогите!

---

← →
RWolf   (2002-12-28 11:03) [7]


var f:file of byte;b:byte;s:string;
begin
assignfile(f,"c:\1.txt");reset(f);
s:="";
while not eof(f) do begin
read(f,b);
for i:=0 to 7 do begin
if b and $80<>0 then s:=s+"1" else s:=s+"0";
shl(b)
end;
end;
closefile(f);
memo1.lines.text:=s
end;


---

Страницы: 1 вся ветка

Текущий архив: 2003.01.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c