Cardinal или Integer в Array of Bytes

[alumium]

Существует C# функция Bitconverter.GetBytes, которая возвращает массив байт из переменной типа Cardinal, Integer и так далее. Есть ли её аналог в Delphi? Если нет то как её сделать?

[Serge_Bliznykov]

а Вы с какой целью интересуетесь?

можно это сделать через задание переменной, "привязанной" к абсолютному адресу нужной переменной.

Например, так:

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
    bbI : array[1.. sizeof(integer)] of byte absolute i;
begin
   i := $1234;
   for j := Low(bbI) to High(bbI)  do
       Memo1.Lines.Append(IntToHex(bbI[j],2))
end;

а можно через копирование нужной переменной в массив.
например, так:

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
    bbI : array[1.. sizeof(integer)] of byte;
begin
   i := $1234;

   Move(i, bbI[1], SizeOf(Integer));

   for j := Low(bbI) to High(bbI)  do
       Memo1.Lines.Append(IntToHex(bbI[j],2))
end;

[phomm]

Не знаю есть или нет (попробуйте, собственно, погуглить и порыть справку), но обычно такое навелосипедить быстрее, чем гуглить. Кто как велосипедит - нередко через "вариативную запись" (точно не помню как называется, это record в которой есть case). Можно вполне просто через указатели сделать, объявить 2 типа (из какого в какой конвертить), объявить 2 переменные этих типов, взять их указатели, приравнять их указатели и конверсия готова.

Вот мой вариант, написал тут и не проверял ) для остальных типов советую перегрузить функцию нужное число раз. Правда не совсем получается возврат массива байт, но смысл я думаю понятен, можно подогнать.

function GetByte(Aint: Integer; ByteIdx: Byte): Byte;
const
  SizeMax = 3
type
  TBytes = array[0..SizeMax] of Byte;
var
  Bytes: TBytes absolute AInt;
begin
  Assert(ByteIdx <= Sizemax, 'Bang-Bang my babe shot me down...');
  Result := Bytes[ByteIdx];
end;

ПС. Блин, Serge опередил на пару минут, пока я писал... хотя оба писали наперегонки))

пс2. Хотя напишу и возврат массива.

type
  TByteDynArray = array of Byte;
...
procedure GetByte(Aint: Integer; var Bytes: TByteDynArray); // массив надо создать и передавать сюда
begin
  SetLength(Bytes, SizeOf(AInt));
  CopyMemory(Bytes, @Aint, SizeOf(AInt));
end;
// вызов
var b : tbyteDynarray;
...
  SetLength(b, 1);
  GetByte(65535, b); // число любое ессно
  ShowMessage(Format('%d %d %d %d', [b[0], b[1], b[2], b[3]]));

Ещё вот что нашёл:
LongRec, WordRec, Int64Rec - записи с возможностью разбора чисел по словам и байтам, опробуй их.

[Johnson]

Код с коленки... Но как минимум первый вариант работать будет.

procedure SomeProc(Inp:Cardinal);
var
	Arr: array [0..SizeOf(Inp)] of byte absolute Inp;
	Arr2: array [0..SizeOf(Inp)] of Byte absolute Inp;
	Arr3: string[SizeOf(Inp)+1] absolute Inp;
	Arr4: array [0..SizeOf(Inp)] of byte;
begin
	Pointer(Arr4) := @Inp;
	//some code
end;

Третий вариант - использование строки в качестве массива чаров. Доступ Byte(Arr3[0])
Четвертый вариант - если absolute не реализована или устарела в компиляторе.

Тут уж, как говорится, на вкус и цвет...

[alumium]

Спасибо друзья, за оказанную помощь. Самый короткий и рабочий вариант оказался этот:

Сообщение от Serge_Bliznykov

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
bbI : array[1.. sizeof(integer)] of byte;
begin
i := $1234;

Move(i, bbI[1], SizeOf(Integer));

for j := Low(bbI) to High(bbI) do
Memo1.Lines.Append(IntToHex(bbI[j],2))
end;