关于使用系统函数求一个字符串的ASCII码问题

求助:关于使用系统函数求一个字符串的ASCII码问题  
红雨

威望：on  发表于 2001-07-17.01:51:46　　 　　  　　　　　　　
--------------------------------------------------------------------------------

我想求自定义字符串变量LastName所包含的鸽字符的ASCII码之和,所用代码如下:
n:=CharCount(LastName)
AsciiName:=0
repeat with x:=1 to n
AsciiName:=AsciiName+Code(GetWord(x,LastName))
end repeat
其中变量AsciiName存的是要求的ASCII码之和
请问有什么错误,望赐教.
我的QQ:41358454 E-mail:littlemouseyu@263.net
--------------------------------------------------------------------------------
总发帖数: 1 |  来源: 黑龙江 |  注册日期: 2001-07-17  IP: 已记录


chy_an

威望：1  发表于 2001-07-17.13:27:49　　 　　　　　　　　　
--------------------------------------------------------------------------------

程序第5行的系统函数使用有误。
GetWord()是挑选出一个字符串中第几个单词，而不是挑选出一个单词中第几个字母。
第5行应改为：
AsciiName:=AsciiName+Code(SubStr(LastName,x,x))
为检测这么改对不对，我做了个文本交互，将程序中的自定义变量LastName改为系统变量EntryText,并动态显示AsciiName的值，结果通过。