送分!(50分)

  • 主题发起人 主题发起人 yp_shen
  • 开始时间 开始时间
Y

yp_shen

Unregistered / Unconfirmed
GUEST, unregistred user!
string how to ASCII ?
 
function Ord(X): Longint;
 
直接强制转换即可,比如:
ShowMessage(IntToStr(Integer('a')));
 
do you want to know how to convert char to ascii?
char->ascii :ord('x')
ascii->char :chr(y).
 
var
mystring:tstring;
i:integer;
begin
try
i:=inttostr(mystring);
except
showmessage('error');
end;
end;
 
pchar(string)->pchar
while …… do
ord(pchar[0])->ascii
 
多人接受答案了。
 
后退
顶部