Add(InlineCode,4225735,511,294)
{
 WorkPoints=#10:doExchange|
 DataPoints=#4:_Arr|6:Idxold|6:Idxnew|
 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|19:    _Arr:THI_Event;|21:    Idxold:THI_Event;|25:    Idxnew:THI_Event;    |53:    procedure doExchange (var _dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|33:procedure THiAsmClass.doExchange;|15:var Arr:PArray;|22:    dtold,dtnew:TData;|28:    dtoldidx,dtnewidx:TData;|5:begin|25:  Arr := ReadArray(_Arr);|47:  dtInteger(dtoldidx,ReadInteger(_dt, idxold));|47:  dtInteger(dtnewidx,ReadInteger(_dt, idxnew));|44:  if not Arr._Get(dtoldidx,dtold) then exit;|44:  if not Arr._Get(dtnewidx,dtnew) then exit;|27:  Arr._Set(dtoldidx,dtnew);|27:  Arr._Set(dtnewidx,dtold);|6:end;  |4:end.|
}