[Aristarh Dark]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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) сразу идут мимо, мне нужно число, а не строка. Строка в коде для примера.