如何用chr函数 ( 积分: 30 )

J

jjqqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #1

(Ord(s)>=65) and (Ord(s)<=90)
or (Ord(s)>=97) and (Ord(s)<=122) 为所有大小写英文字母
如何用chr函数得到其对应的字母？
我使用了i:integer;
for i:=65 to 122 do
showmessage(chr(i));
编译不过。请指点

 

J

jjqqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #2

(Ord(s)>=65) and (Ord(s)<=90)
or (Ord(s)>=97) and (Ord(s)<=122) 为所有大小写英文字母
如何用chr函数得到其对应的字母？
我使用了i:integer;
for i:=65 to 122 do
showmessage(chr(i));
编译不过。请指点

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #3

Chr()在System单元中。
D6编译无误。 []
－－－－－－－
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=65 to 122 do
ShowMessage(chr(i));
end;
－－－－－－－

 

D

dawnsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #4

i:integer;
for i:=65 to 122 do
showmessage(chr(i));
没问题哦，Delphi9

或者你该为下面的试试
Var i:Byte;
for i:=65 to 122 do
showmessage(chr(i));

 

J

jjqqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #5

多人接受答案了。