字符串转换函数(50分)

C

cm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #1

有一个字符串，需要把每个字符的ascii码取出来
然后进行运算
可是怎么取？
在delphi帮助中说，长度为1的字符串与字符类型兼容，但是
ord(copy(user,i,1))编译无法通过
可能copy返回的是字符串，不能取定长度为1，
请问如何解决

 

M

mataijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #2

for i := 1 to length(user) do
ord(user)

 

I

Iknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #3

ord函数可以把字符串的首个字符转换成ASCII码, 与长度无关(只要非空), 但一般也不这么用

建议你可以用

s=copy(user, i, 1);
ord(s[1]);

来代替, 但是字符串长度限制在254个字符以内.


另外一种做法:

ord((pchar(user)+i)^);

也是可以的, 而且能够支持长字符串(>254字符的).

 

C

cm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #4

接受答案了.