.
if _prop_BigEndian then Reverse(@i);
.
procedure THIDataToFileEx.Reverse;
var pb,pe:^byte; b:byte;
begin
   pb := p; pe := pb; inc(pe, _prop_DataSize-1); 
   while dw(pb) < dw(pe) do begin
      b := pb^; pb^ := pe^; pe^ := b;
      inc(pb); dec(pe);
   end;
end;

Add(MainForm,3688957,434,210)
{
 Width=543
 Height=258
 link(onCreate,14211046:doConsoleExec,[(480,230)(480,258)])
}
Add(Button,6027910,273,140)
{
 Left=225
 Top=105
 link(onClick,1318132:doEvent1,[])
}
Add(ListBox,11735890,357,84)
{
 Left=15
 Top=25
 Width=195
 Height=75
 Font=[MS Sans Serif,10,0,0,1]
 Strings=#10:2864434397|10:3721182122|0:|
}
Add(ArrayEnum,10354728,371,140)
{
 link(onItem,3073005:doConvert,[])
 link(Array,11735890:Array,[])
}
Add(ListBox,16049722,588,140)
{
 Left=15
 Top=110
 Width=195
 Height=75
 Font=[MS Sans Serif,10,0,0,1]
 DataType=1
}
Add(StreamConvertor,12021712,476,140)
{
 Mode=1
 link(onResult,5437852:doGet,[])
}
Add(Convertor,3073005,420,140)
{
 Mode=6
 link(onResult,12021712:doConvert,[])
}
Add(DataToFileEx,5437852,532,140)
{
 DataSize=4
 link(onGet,16049722:doAdd,[])
}
Add(ListBox,6146988,364,203)
{
 Left=310
 Top=25
 Width=195
 Height=75
 Font=[MS Sans Serif,10,0,0,1]
 Strings=#15:187723572702975|17:-4822678189244416|20:-6148895925951734307|17:63275574478219900|
}
Add(ListBox,461828,665,238)
{
 Left=310
 Top=110
 Width=195
 Height=75
 Font=[MS Sans Serif,10,0,0,1]
 DataType=1
}
Add(ArrayEnum,9456868,378,259)
{
 link(onItem,9189398:doString,[])
 link(Array,6146988:Array,[])
}
Add(Hub,1318132,322,140)
{
 link(onEvent1,10354728:doEnum,[])
 link(onEvent2,9456868:doEnum,[(354,153)(354,265)])
}
Add(WinExec,14211046,490,238)
{
 FileName="powershell"
 Mode=0
 Point(doConsoleExec)
 Point(doConsoleInput)
}
Add(ClipboardHook,12507369,553,238)
{
 NextHook=1
 link(onChange,3920480:doCompare,[])
}
Add(StrMask,3920480,609,238)
{
 link(onFalse,461828:doAdd,[])
}
Add(FormatStr,9189398,434,259)
{
 DataCount=1
 Mask="$a=[bitconverter]::GetBytes(%1)\r\n[array]::Reverse($a)\r\n[bitconverter]::ToInt64($a,0) | Set-Clipboard\r\n"
 link(onFString,14211046:doConsoleInput,[])
}

Add(MainForm,14667778,308,133)
{
 Position=1
}
Add(Edit,10593851,490,126)
{
 Left=20
 Top=20
 Width=85
 Text="AABBCCDD"
}
Add(Button,7642022,434,175)
{
 Left=120
 Top=20
 link(onClick,14795348:doConvert,[])
}
Add(Label,2287541,651,175)
{
 Left=185
 Top=25
}
Add(Convertor,14795348,490,175)
{
 Mode=5
 link(onResult,11970995:doBSwap,[])
 link(Data,10593851:Text,[])
}
Add(Convertor,9711378,602,175)
{
 Mode=6
 link(onResult,2287541:doText,[])
}
Add(InlineCode,11970995,546,175)
{
 WorkPoints=#7:doBSwap|
 EventPoints=#8:onResult|
 DataPoints=#6:IntNum|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:     IntNum: THI_Event;|28:     onResult: THI_Event;   |54:     procedure doBSwap(var _Data: TData; Index: Word);|5: end;|0:|14:implementation|0:|87:function BSwap(X: LongWord): LongWord; assembler; {$ifdef FPC64} nostackframe; {$endif}|3:asm|16:  {$ifdef WIN64}|34:  mov eax, ecx // ECX = x in 64bit|10:  {$endif}|11:  bswap eax|4:end;|0:|14:{$ifdef WIN64}|0:|83:function BSwap64(X: Int64): Int64; assembler; {$ifdef FPC64} nostackframe; {$endif}|3:asm|25:  mov rax, rcx // RCX = x|11:  bswap rax|4:end;|80://Result := (Int64(Endian(LongWord(X))) shl 32) or (Endian(LongWord(X shr 32)));|0:|7:{$else}|0:|40:function BSwap64(const X: Int64): Int64;|4:type|22:  Ti64 = packed record|21:    Lo, Hi: LongWord;|6:  end;|5:begin|39:  Ti64(Result).Lo := BSwap(Ti64(X).Hi);|39:  Ti64(Result).Hi := BSwap(Ti64(X).Lo);|4:end;|0:|8:{$endif}|0:|0:|0:|59:procedure THiAsmClass.doBSwap(var _Data:TData; index:word);|5:begin|74:  _hi_CreateEvent(_Data, @onResult, BSwap(ReadInteger(_Data, IntNum, 0)));|4:end;|0:|0:|0:|19:// Для других типов|15:procedure Test;|4:type|22:  PInteger = ^Integer;|18:  PInt64 = ^Int64;|3:var|20:  MySingle: Single; |91:  TmpInt: Integer absolute MySingle; // TmpInt указывает на память, выделенную под MySingle|19:  MyDouble: Double;|36:  TmpInt64: Int64 absolute MyDouble;|5:begin|0:|61:  // Для типов Single/Double берется указатель на переменную,|77:  // приводится к целому типу нужного размера и вызывается функция для целого|54:  PInteger(@MySingle)^ := BSwap(PInteger(@MySingle)^);|52:  PInt64(@MyDouble)^ := BSwap64(PInt64(@MyDouble)^);|5:     |45:  // Или с использованием директивы absolute.|59:  // Работа идёт со значениями перменных  MySingle/MyDouble|26:  TmpInt := BSwap(TmpInt);|34:  TmpInt64 := BSwap64(TmpInt64);  |4:end;|0:|4:end.|
 link(onResult,9711378:doConvert,[])
}