[Aristarh Dark]

Мож кто знает методу попроще для того чтобы развернуть число.

Код:

function GetCardinalByte(p:pointer;ix:integer):byte;
begin
  Result:=PByteArray(p)^[4-ix];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  data:Cardinal;
  s:string;
  i: Integer;
begin
  data:=$01020304;
  s:='';
  for i := 1 to 4 do
    s:=s+IntToHex(GetCardinalByte(@data,i),2)+' ';
  ShowMessage(s);
end;

Как-то не комильфо

ЗЫЖ Умники с советами IntToHex(data,8) сразу идут мимо, мне нужно число, а не строка. Строка в коде для примера.