在Delphi中把一个字符串中的每个英文字母都转换成相应的整数值,应该怎么办?(50分)

  • 主题发起人 主题发起人 zlmark
  • 开始时间 开始时间
Z

zlmark

Unregistered / Unconfirmed
GUEST, unregistred user!
我用copy函数提取每个字符,然后把它转换成pwidechar,使用ord函数,可是系统总是提醒
类型不相容,怎么回事?
 
你直接
for i:=1 to length(edit1.text)do

begin
ord(edit1.text)不就行了吗,还用得着转成pwidechar呢?
end;
 
不要把它转换成pwidechar,直接ord就可以了
 
var
s: String;
str : String;
Index:integer;
Ascii:integer;
begin
//.......
/.......
s:=copy(str,index,1);
Ascii := ord(s[1]);

end;
 
同意楼上。
 
多人接受答案了。
 
后退
顶部