Разложение Single на байты

@sergey_80 · Регистрация: 13.06.2011

Author24 — интернет-сервис помощи студентам

Кто занает как разложить Single на байты?
т.е. получить значение 1,2,3 и 4-го байтов переменной.

@Mawrat · 13.06.2011, 21:48

Если надо, чтобы индексы обозначали смещение в байтах относительно младшего байта переменной типа Single:

Delphi

type
  TArrByte = array[0..SizeOf(Single) - 1] of Byte; //array[0..3] of Byte;
var
  PArrByte : ^TarrByte;
  Num : Single;
begin
  Single := 10.123;
  PArrByte := @Single;
  
  //Теперь:
  //PArrByte^[0] - младший байт переменной типа Single.
  //PArrByte^[1]
  //PArrByte^[2]
  //PArrByte^[3] - старший байт переменной типа Single.
...
end;

Если требуется вести отсчёт от единицы:

Delphi

type
  TArrByte = array[1..SizeOf(Single)] of Byte; //array[1..4] of Byte;
var
  PArrByte : ^TarrByte;
  Num : Single;
begin
  Single := 10.123;
  PArrByte := @Single;
  
  //Теперь:
  //PArrByte^[1] - младший байт переменной типа Single.
  //PArrByte^[2]
  //PArrByte^[3]
  //PArrByte^[4] - старший байт переменной типа Single.
...
end;

@sergey_80 · 13.06.2011, 21:57 **[ТС]**

Спасибо!
Подозревал, что можно через указатели.

@sergey_80 0 / 0 / 0 Регистрация: 13.06.2011 Сообщений: 3
		1
	Разложение Single на байты 13.06.2011, 19:05. Показов 5400. Ответов 2 Метки нет (Все метки) Кто занает как разложить Single на байты? т.е. получить значение 1,2,3 и 4-го байтов переменной. 0

@sergey_80 0 / 0 / 0 Регистрация: 13.06.2011 Сообщений: 3
	13.06.2011, 21:57 [ТС]	3
	Спасибо! Подозревал, что можно через указатели. 0

Разложение Single на байты

Решение