怎样把ascii码转换成字符串，又怎样把字符串转换成ascii码呢？(50分)

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #1

怎样把ascii码转换成字符串，又怎样把字符串转换成ascii码呢？

 

竹

竹寨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #2

用函数chr(),val()

 

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #3

菜鸟还请大侠详细一点，菜鸟太菜了！！！

 

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #4

var schar;
i:integer;
Begin
Edit1.text:='';
s:=pchar(Edit2.text);
for i:=0 to length(trim(Edit2.text))-1 do
Edit1.text:=edit1.text+chr(ord(s)+i+1); //要解開的話就將 +i+1 改成 -i-1就行了
End;

測試這個程序需要在窗口上放置二個Edit控件,將要改碼的字符輸入到Edit2中,再通過一個按
鈕控件來運行上面的代碼,就可以在Edit1中看到改碼后的字符了!
主要原理也就是利用Chr(),Val()

 

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #5

sydan大侠，你是怎么和我说话的，太神了，能告诉我吗？

 

Y

yangxiao_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #6

在在线富翁里可以呼叫。

 

S

SS2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #7

chr()
Ord()

 

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #8

多人接受答案了。

 

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #9

兄弟,不好意思我后來走開了,問題得到解決了吧,交個朋友吧!
我的QQ是89627243