海
海风
Unregistered / Unconfirmed
GUEST, unregistred user!
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
S
SuperMMX
Unregistered / Unconfirmed
GUEST, unregistred user!
不会吧，又问这个，有一个一模一样的问题：
answer := Ord(aChar);
answer := Ord(aChar);
L
LeeChange
Unregistered / Unconfirmed
GUEST, unregistred user!
ord(c)
来晚了
来晚了
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
汉字要转为2个ascii，也不用ord了，直接 integer(mychar) 就可以
W
WuWZY
Unregistered / Unconfirmed
GUEST, unregistred user!
太晚了！
ord()。 参数可以是任何有序类型。
ord()。 参数可以是任何有序类型。
K
koukou
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
n: Integer;
begin
n := Ord('3');
ShowMessage(IntToHex(n, 4));
end;
var
n: Integer;
begin
n := Ord('3');
ShowMessage(IntToHex(n, 4));
end;
A
avant
Unregistered / Unconfirmed
GUEST, unregistred user!
g
C
Croco
Unregistered / Unconfirmed
GUEST, unregistred user!
还有，Byte(ch)。
海
海风
Unregistered / Unconfirmed
GUEST, unregistred user!
ord不能直接取汉字中的任一字节来转换，INTEGER（MYCHAR）好像对2个字
节的汉字只返回一个值。
请问怎样才能对汉字中的一个字节转换？
比如对字符串加密。
节的汉字只返回一个值。
请问怎样才能对汉字中的一个字节转换？
比如对字符串加密。
K
Kang
Unregistered / Unconfirmed
GUEST, unregistred user!
用Byte()
如s:='a你好'
则 Byte(s[1])=97,Byte(s[2])=196,Byte(s[3])=227,
Byte(s[4])=186,Byte(s[5])=195
如s:='a你好'
则 Byte(s[1])=97,Byte(s[2])=196,Byte(s[3])=227,
Byte(s[4])=186,Byte(s[5])=195
X
xlf
Unregistered / Unconfirmed
GUEST, unregistred user!
Showmessage(IntToStr(StrToInt('字符'))
C
Croco
Unregistered / Unconfirmed
GUEST, unregistred user!
补充一点：
ord()是Pascal标准函数，Byte()可以与CBuilder兼容。
ord()是Pascal标准函数，Byte()可以与CBuilder兼容。
海
海风
Unregistered / Unconfirmed
GUEST, unregistred user!
我用的delphi5中怎么没有byte()和integer()转换函数？
一用就提示错误,怎么回事？
一用就提示错误,怎么回事？
C
Croco
Unregistered / Unconfirmed
GUEST, unregistred user!
byte() 和 integer() 不是函数，是类型转换(typecast)。
var
ascii: Byte;
s: String;
begin
// 下面是正确的
ascii := Byte('A');
s := '字';
ascii := Byte(s[1]);
ascii := Byte(s[2]);
ascii := Byte('字');
// Invalid typecast: String->Byte
end;
var
ascii: Byte;
s: String;
begin
// 下面是正确的
ascii := Byte('A');
s := '字';
ascii := Byte(s[1]);
ascii := Byte(s[2]);
ascii := Byte('字');
// Invalid typecast: String->Byte
end;
C
Chenlili
Unregistered / Unconfirmed
GUEST, unregistred user!
来晚了。
千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
我来的早也不会，请给我一分，不用再粘贴到信箱里去了。
海
海风
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。