關於字符的問題??快把我給急死了!!!!!大蝦一定要來救救小弟啊!(5分)

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #1

1.怎樣得到某個字符的ASC碼,即他的值比如
a = 65
那麼當我在Edit1中一輸入a時Edit2中便顯示65
2.怎樣從一個值又返回到那個字符呢?比如
65 = a
那麼當我在Edit2中一65時Edit1中便顯示a
怎麼做啊!!!!!急!!急!!急!!急!!急!!急!!

 

Y

yugen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #2

65-->a,chr(65)
a-->65,ord('a')

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #3

1.在keydown或keypress事件中 ,参数Key
2.加两个TEdit控件
procedure TfrmMain.Edit1Change(Sender: TObject);
var
schar;
begin
s:=pchar(edit1.text);
caption:=s[0];
edit2.text:=inttostr(ord(s[0]));
end;

 

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #4

多人接受答案了。