Вопрос по функции перевода числа

[АНАТОЛИЙ249]

Интернет перевернул подходящего не нашел ,как перевести любое целое число (именно в 4 байта) и обратно перевести именно (из 4 байт в целое число) ?


type
Tmas=record
bf:[0..3] of array;
end;




function(value:integer):Tmas;
var
ms:Tmas;
begin
ms.bf[0]:=value shl 8;
ms.bf[1]:=value shl 8;
ms.bf[2]:=value shl 8;
ms.bf[3]:=value shl 8;
result:=ms;
end;

Примерный код . Спасибо.

[Аватар]

type Tmas = array [0..3] of Byte;
     Pmas = ^Tmas;

var i,k: Integer;
    ms: Tmas;
    p: Pmas;

  k:=95437255;
  p:=@k;
  for i:=0 to 3 do ms[i]:=p^[3-i];

[АНАТОЛИЙ249]

Спасибо за помощь . А обратно как в число ?

[northener]

var 
  mas : array[0..3] of Byte;
  I : Integer absolute mas;

Присваиваешь значение массиву - видишь результат в I
Присваиваешь значение I - видишь результат в массиве.

[Аватар]

Тоже можно, не считая того, что байты в массиве будут соответствовать тому, как переменная в памяти размещается - единичка в массиве будет 01, 00, 00, 00

[northener]

Значит ТС должен изучить тему Порядок байтов и разобраться самому что ему надо.

[АНАТОЛИЙ249]

Нашёл на просторах интернета .

function ConvertToFloat(ms:Tmas): integer;
var
Data: Array[0..5] of Byte;
S: String;
i: Integer;
begin
S := '';
for i := 0 to 3 do
begin
S := S + format('%.2x', [ms[i]]);
end;
result := StrToInt64('$'+S);
end;


Работает возвращает то число которое было задано



Спасибо всем за ответы и помощь.

[АНАТОЛИЙ249]

Вот обе функции:

type Tmas = array [0..3] of Byte;
Pmas = ^Tmas;





function intobyte4(value:integer): Tmas;
var
i,k: Integer;
ms: Tmas;
p: Pmas;
begin
p:=@value;
for i:=0 to 3 do ms[i]:=p^[3-i];
result:=ms;
end;



function ConvertToFloat(ms:Tmas): integer;
var
Data: Array[0..5] of Byte;
S: String;
i: Integer;
begin
S := '';
for i := 0 to 3 do
begin
S := S + format('%.2x', [ms[i]]);
end;
result := StrToInt64('$'+S);
end;


Спасибо всем за помощь и ответы вопрос можно закрывать.