Вверх ↑
Ответов: 1341
Рейтинг: 31
#1: 2019-07-15 12:57:38 ЛС | профиль | цитата
Netspirit, да заглядывался на неё уже, но почему то не смог выкрутиться и совместить опять же типы Int64 и I64


Int64_2Hex

Add(InlineCode,748906,616,231)
{
@Hint=#9:Hex2Int64|
@Color=11206570
WorkPoints=#12:doInt64_2Hex|
EventPoints=#12:onInt64_2Hex|
DataPoints=#4:strr|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|0:|10: private|0:|9: public|15: strr:String;|28: onInt64_2Hex:THI_Event;|57: procedure doInt64_2Hex(var _Data:TData; Index:word);|0:|5: end;|0:|0:|0:|14:implementation|0:|42:function Int64_2Hex(Value: Int64): string;|5:const|72: HexDigitChr: array[0..15] of Char = ( '0','1','2','3','4','5','6','7',|74: '8','9','A','B','C','D','E','F' );|3:var|29: Buf: array[0..16] of Char;|15: Dest : PChar;|18: Digits: Integer;|5:begin|16: Digits := (2);|19: Dest := @Buf[16];|14: Dest^ := #0;|8: repeat|14: Dec(Dest);|17: Dest^ := '0';|22: if Value <> 0 then|9: begin|41: Dest^ := HexDigitChr[Value and $F];|27: Value := Value shr 4;|8: end;|16: Dec(Digits);|38: until (Value = 0) and (Digits <= 0);|17: Result := Dest;|4:end;|0:|0:|35:procedure THiAsmClass.doInt64_2Hex;|0:|3:var|9:ss:Int64;|10:sn:String;|0:|5:begin|22:ss := Str2Int64(strr);|21:sn := Int64_2Hex(ss);|30:_hi_onEvent(onInt64_2Hex, sn);|4:end;|0:|4:end.|
}


(56) Error: Incompatible types: 'Int64' and 'I64'
карма: 2

0
Редактировалось 1 раз(а), последний 2019-07-15 12:58:11