s = 'abcdefg';
在控制台输出相应的十六进制码?
在控制台输出相应的十六进制码?
解决方案 »
- StringGrid的问题。请问如何让StringGrid的某单元格赋上颜色并闪烁,单元格字体颜色如何控制?多谢!!!
- 求助 DBGrid控件的表内容进行修改后 数据库中的表并不修改 而当按提交按钮后 结果传入表中 更新表
- 重金求一解决方案! 来者皆有分!
- 我给MSSQL2000打了一个补丁,结果局域网的速度变的很慢,这是怎么回事啊?
- D7中如何升级DBX
- 谈谈打包的问题
- 谁有XE5 ANDROID平台 调用 webservice 的源码例子!
- image1.Picture.Bitmap.LoadFromResourceID()怎么用?
- 您的指手将惠与我一生
- 请教各位高手,关于Query 和 Table 的浏览速度问题??
- 请问如何从网页上如何抓取表格中的数据
- 求算法
http://dev.csdn.net/article/02/02776.shtm
var
s:string;
c:char;
d:string;
begin
s:='abc';
c:=s[1];
d:=inttohex(ord(c),2);
var
i:integer;
begin
for i:=1 to Length(Source) do
begin
Result:=Result+IntToHex(Ord(Source[i]),2);
end;
end;
把字符串里的字符一个个读出来后,就是一个个的char。Ascii码。
再转换一下:
begin
result:='';
for i:=1 to length(s) do
result:=result+inttohex(ord(s[i]));
end;
首先一个LENGTH()设置一下
然后就可以用[]来访问
然后直接BYTE()来转换就可以换成16进制了