unit hiConvertor64;  { Convertor64 }

interface

uses Kol,Share,Debug;

type
  THIConvertor64 = class(TDebug)
   private
   public     
    _data_Data:Int64;
    _event_onResult:THI_Event;
    
    procedure _work_doConvert(var _Data:TData; Index:word);
  end;


implementation

function Int64ToHex(Value: Int64; Digits: Integer): string;
const
  HexDigitChr: array[0..15] of Char = ( '0','1','2','3','4','5','6','7',
                                        '8','9','A','B','C','D','E','F' );
var
  Buf: array[0..16]  of Char;
  Dest : PChar;
begin
  Dest := @Buf[16];
  Dest^ := #0;
  repeat
    Dec(Dest);
    Dest^ := '0';
    if Value <> 0 then
    begin
      Dest^ := HexDigitChr[Value and $F];
      Value := Value shr 4;
    end;
    Dec(Digits);
  until (Value = 0) and (Digits <= 0);
  Result := Dest;
end;

procedure THIConvertor64._work_doConvert;

var
S:String;

begin
S := Int64ToHex(Int64(_data_Data), 16);
_hi_OnEvent(_event_onResult, S);
end;


end.