Error: Incompatible types: 'Int64' and 'THI_Event'
компонент
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.