VPF::бинарное чтение\запись файла - Форум программистов

Gigabyte

Дата 17.1.2006, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Студент-халявщик

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 1.11.2004
Где: ПЫтер

Репутация: нет
Всего: 3

Как сделать программу которая будет читать\писать фаил , помещая данные в массив который может содержать 1 или 0

--------------------

_hunter

Дата 17.1.2006, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

читать побайтно, а потом байт разбирать на биты и писать в массив.
можно просто 0 и 1 писать.
в чем проблема?

--------------------

Tempora mutantur, et nos mutamur in illis...

Gigabyte

Дата 17.1.2006, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Студент-халявщик

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 1.11.2004
Где: ПЫтер

Репутация: нет
Всего: 3

напиши примерно как это будет выглядить

--------------------

Guedda

Дата 17.1.2006, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


type
  TBFile = file of Byte;

...


procedure ReadByteFile(ByteFile : string);
var
  Tot : byte;
  f : TBFile;
begin
  AssignFile(f, ByteFile);
  Reset(f);
  while not(f) do begin
    Read(f, Tot);
    //здесь обрабатываешь, так как нужно.
  end;
  CloseFile(f);
end;

--------------------

Ll 2

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »