📄 howto_create_ascii().htm
字号:
<html><head><title>如何做一个简单的ascii码替代的自定义函数</title><meta http-equiv=Content-Type content=text/html; charset=gb2312><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none></head><body style=font-family: 宋体, serif; font-size: 9pt><center><b><span style=font-family: 宋体; font-size: 12pt>如何做一个简单的ascii码替代的自定义函数</span></b></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 <a href=mailto:delphifan@990.net>梁 明</a> 选编</span></center><hr><p><b><font color=#0000FF>[问题]<br></font><font color=#008080><span style=font-family: 宋体; font-size: 9pt>=============================================〉<br></b>我想做一个简单的ascii码替代的自定义函数，将输入的字串<br>用倒的Ascii码表顺序列替代，Xpro是这样写的：<br><br>*********************<br>* fcs.prg<br>* change password chr<br>* created by opig<br>*********************<br>func fcs<br>para iputdata<br><br>mlen=len(allt(iputdata))<br>i=1<br>YESp=''<br>oputdata=''<br>for i=1 to mlen <br>yesp=chr(255-asc(subs(iputdata,i,1))) <br>oputdata=oputdata+yesp<br>endf<br><br>retu oputdata<br><br>然后我用delphi 这么写：<br><br>function changePWD(iputdata:string): AnsiString;<br>var<br>i,mlen:integer;<br>yesP:string;<br>begin<br>yesp:='';<br>result:='';<br>mlen:=length(iputdata);<br>for i:= 1 to mlen do<br>begin<br>yesp:=chr(255-ord(copy(iputdata,i,1))); //出错！<br>result:=result+yesp;<br>end;<br>end;<br><br>出错的原因是ord函数,假如我想取字母c的ascii值，写成ord('c')，<br>那么，值为99没错，如果用一个赋值语句，<br>abc:='c';<br>result:=ord(abc);就不是得出99了,因为ord不等于asc,请问应该怎<br>么做？<br><============================================================<br></span></font><br><span style=font-family: 宋体; font-size: 9pt><b><font color=#FF0000>[回答]</font><br></b>=============================================<br>ord函数需要一个顺序类型作为参数，当然回出错了<br>你改为iputdata[i]就可以了(inputdata本身string;<br>Copy返回的也是string,而string为字符数组，所以<br>inputdata[i]为char型)<br><br></span><ul> <li><span style=font-family: 宋体; font-size: 9pt>版主：梁明<br> 日期：99-07-28<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></span></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -