可以这样啊：A：CHAR；S：STRING；I，J，SUM：INTEGER；FOR J：=1 TO LENGTH（S）DO BEGIN {A：=？（COPY（S，I，1）；} //去掉这一句 A:=Ord(S[j]); I：=ORD（A）； SUM：=SUM+I；END；
