Question

delphi中字符串和16进制数据之间怎么转换

Answer 1

试试下面代码:

function str2dex(src:string):string；
var  
    des: string;  
    i: integer;
    begin  
        des := '';  
        for i := 1 to Length(src) do  
        begin    
            des := des + IntToHex(Ord(src[i]),2) + ' ' ;  
        end;  
        result:=des; 
    end;
end;