VPF::разбить/ собрать 4 байтное значение

JS2

Дата 4.3.2010, 17:44 (ссылка)

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

Загрузка ...

Шустрый

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

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

В стрим записываю целочисленное значение (4 байта):

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  N, Res: Integer;
  S: TStream;
  W1, W2: Word;
begin
  N := 123456;
  S := TMemoryStream.Create;
  try
    S.Write(N, SizeOf(N));
    S.Position := 0;
    S.Read(Res, SizeOf(N));

    ShowMessage(IntToStr(Res));
    // ...
  finally
    S.Free;
  end;
end;

как получить это значение считывая из стрима по 2 байта.
т.е.

Read 2 байта
Read 2 байта
=> объединили => получили значение 4-х байтное которое сохраняли.

Matematik

Дата 4.3.2010, 23:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


    S.Position := 0;
    S.Read(W1, SizeOf(W1));
    S.Read(W2, SizeOf(W2));
    Res := w1 or (w2 shl 16);

Можно и без стримов.

Код


procedure TForm1.btn1Click(Sender: TObject);
type
  typ1 = record
    case Integer of
      0: (a: Integer);
      1: (b: array[0..1] of Word);
      2: (c: array[0..3] of Byte);
  end;
var
  i: Integer;
  t: typ1;
  i1,i2: Integer;
begin
  // так
  i := 127001;
  t.a := i;
  // или так
  i1 := i and $FFFF;
  i2 := (i and $FFFF0000) shr 16;
  // объединить
  i := i1 or (i2 shl 16);
  //---
  ShowMessage(Format('%d %d'#13#10'%d %d'#13#10'%d', [t.b[0],t.b[1],i1,i2,i]));
end;

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