你这是16进制的吗,是10进制的把,先用IntToHex(value,16)把他转换成16进制。 然后得到的是c4e3bac3 汉字是双字节的,必须两个字符一起 以下是一个例子可以得到汉字 procedure TForm1.Button1Click(Sender: TObject); var i:integer; str:string; begin i:=1; str:=edit1.text; edit1.text:=''; while i < length(str) do begin Edit1.text:=edit1.text+ chr(strtoint('$'+str[i]+str[i+1]))+chr(strtoint('$'+str[i+2]+str[i+3])); i:=i+4; end;end;
然后得到的是c4e3bac3 汉字是双字节的,必须两个字符一起
以下是一个例子可以得到汉字
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
str:string;
begin
i:=1;
str:=edit1.text;
edit1.text:='';
while i < length(str) do
begin
Edit1.text:=edit1.text+ chr(strtoint('$'+str[i]+str[i+1]))+chr(strtoint('$'+str[i+2]+str[i+3]));
i:=i+4;
end;end;
用这个IntToHex(value,16)好像不行?
搞完结账
用这个IntToHex(value,16)好像不行?
搞完结账怎么解析这个问题啊? 不会转换啊
能给个提示嘛?
[email protected]