我有一个delphi问题（初学）！ ( 积分: 50 )

A

Anders_Hejlsber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-20

• #1

怎么取一个字符串的 第一个字符？
并判断那个字符是数字还是字母？

用copy取出的是字符串吧？那怎么办啊？

 

A

Anders_Hejlsber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-20

• #2

怎么取一个字符串的 第一个字符？
并判断那个字符是数字还是字母？

用copy取出的是字符串吧？那怎么办啊？

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-20

• #3

1. 在StrUtils单元有很多处理字符串的函数
2.用Val函数最安全了

 

S

Supermay

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-20

• #4

LeftStr(s,1);
copy(s,1,1)

 

Z

zhengyong7381

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-20

• #5

edit1.text:= copy('abc',1,1)
则是'a'
判断
if ord(copy('abc',1,1)) > 9 then
showmessage('是字符')
else showmessage('是数字')

 

A

Anders_Hejlsber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-20

• #6

begin
if (edit1.text[1] in ['0'..'9']) then
showmessage('是数字')
else if (edit1.text[1] in ['a'..'z'])or(edit1.text[1] in ['A'..'Z'])
then
showmessage('是字母')
else
showmessage('是其它符号')
end;

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-21

• #7

我只看见了你的名字！

 

P

pingmeme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-21

• #8

[red] 楼上什么意思？[/red]

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-21

• #9

我是说我不明白他是怎么想的，崇拜归崇拜，还是要尊重别人的。
特别是到这里就更不合适了，或许我们应该问你问题，而不是你问我们！
冒犯了，见谅！

 

A

Anders_Hejlsber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-21

• #10

你是说我的名字吗.呵呵,有意思吧![][]

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-21

• #11

倒,还把你逗乐了,睡觉了!