| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Загрузка файла в бинарном виде
Supreme © (2002-12-26 13:12:00)Как просмотреть файл c:\1.txt в Memo1 в двоичном виде (единици и нолики)??
RWolf (2002-12-28 11:03:00) [1]
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;
Supreme (2002-12-28 10:52:00) [2]Ну помогите!
Supreme (2002-12-27 16:33:00) [3]??
Supreme (2002-12-26 19:13:00) [4]OK. А как в TStringGrid??
Anatoly Podgoretsky (2002-12-26 13:53:00) [5]Не грузи в Memo1
Song (2002-12-26 13:30:00) [6]По видимому в TStringGrid его загружать.
Reindeer Moss Eater (2002-12-26 13:21:00) [7]Каждый байт файла представить в виде строки нулей и единиц длиной 8 символов
| |
