如何得到一个字符串的16进制编码? 这个字符串不仅有汉字,还有字符,数字,比如‘ra操作1’ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 每个字符转成两位十六进制编码:function StringToHex(Source:string):string;var i:integer;begin for i:=1 to Length(Source) do begin Result:=Result+IntToHex(Ord(Source[i]),2); end;end; 反编译求高手 一个可以模拟IDE 的 文件 怎么修改? paramstr()的值從何而來?有誰知道,麻煩指點一下,謝謝了 问题:richedit实现逐行显示~~但数据超过万条,且不断更新时 怎样可以在主程序中设置一个中断,直到某个事件产生再继续。 sanle!! adoquery和adodataset有什么区别啊 TreeView1添加子节点问题 如何通过ODBC用Delphi或其它编程语言向Excel工作表中添加数据 过来一下airhorse 通过互联网远程联接数据库 远程连接数据库(sql server2000),并传数据问题,100分不够再加……在线等之,高手请进……
var
i:integer;
begin
for i:=1 to Length(Source) do
begin
Result:=Result+IntToHex(Ord(Source[i]),2);
end;
end;