...........
end;[/code]
StrToHex преобразование
Код:
//(c) xkor
function StrToHex(packet: string):string;
var
i:integer;
tmp:byte;
function ByteToHex(b: byte): Char;
begin
if b<10 then result:=chr(b+$30)
else result:=chr(b+$37);
end;
begin
result:='';
for i:=1 to length(packet) do begin
tmp:=ord(packet[i]) div 16;
result:=result+ByteToHex(tmp);
tmp:=ord(packet[i]) - tmp*16;
result:=result+ByteToHex(tmp)+' ';
end;
end;
пример использования
Код:
hextr2:=hextostr(pck);
SHOWMESSAGE(hextr2);
[/quote]
Подскажите пожалуйста , как правильно пользоваться этой функцией? У меня при компиляции ошибку выдает .