VPF::битовая логика - Форум программистов

JS2

Дата 17.3.2010, 12:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

столкнулся с проблемой: 4-хбайтовое значение нужно записать в файл 1 установив для первого байта старший бит (1). Дальше разбить 4-хбайтовое значение на 2 двухбайтовых, для первого 2-хбайтового занчения установить старшbй бит (1) для первого байта.

Пытаюсь так:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  S: TStream;
  N: DWord;
  W: packed array [0..1] of Word absolute N;
begin
  N := 266;
 // Write to 1
  S := TFileStream.Create('1', fmCreate);
  try
    N := N or $80000000; // óñòàíàâëèâàåì áèò
    try
      S.Write(N, SizeOf(N));
    finally
      N := N and $FFFFFF; // ñáðàñûâàåì áèò
    end;
  finally
    S.Free
  end;
  // Write to 2
  S := TFileStream.Create('2', fmCreate);
  try
    W[0] := W[0] or $8000; // óñòàíàâëèâàåì áèò
    try
      S.Write(W[0], SizeOf(W[0]));
    finally
      W[0] := W[0] and $7FFF; // ñáðàñûâàåì áèò
    end;
    S.Write(W[1], SizeOf(W[1]));
  finally
    S.Free;
  end;
end;

В итоге:

1 файл: 0A 01 00 80
2 файл: 0A 81 00 00

Почему разные значения, что делаю не так?

kami

Дата 17.3.2010, 13:57 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Всё правильно выводит.
1. 266=$10A, при установке старшего бита двойного слова получается $8000010A. С учетом того, что в компьютерном представлении младший байт идет первым (по меньшему адресу, т.е. получается "обратная" запись), первый результат правильный.
2.

Цитата(JS2 @ 17.3.2010, 12:25

)

N := N and $FFFFFF;

Обнулил старший байт (хотя - зачем, в условии этого не было). Соответственно, число стало опять $10A. Ну а дальше - всё правильно, если под первым словом понимать младшее слово, а не старшее (в условии небольшая некорректность).

Добавлено через 3 минуты и 20 секунд

Цитата(JS2 @ 17.3.2010, 12:25

)

W[0] := W[0] and $7FFF;

Напоследок - не понял этого маневра. Зачем это, если младшее слово потом не используется?

JS2

Дата 17.3.2010, 14:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

если под первым словом понимать младшее слово, а не старшее (в условии небольшая некорректность)

оказывается проблема была именно в этом. респект. smile

Это сообщение отредактировал(а) JS2 - 17.3.2010, 15:04

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