请教一个小问题，那位老兄看一下。 (10分)

逆

逆水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #1

我想在程序中根据字符串的长度来取值，为什么这样写不行呢，请那位老兄帮我看一下。
S：=EDIT1。TEXT。
IF LENGTH（S） >10 THEN
S1:=COPY(S,5,5) ELSE
S1:=COPY(S,2,3) //其中EDIT1。TEXT的长度最小不低于5。
为什么长段程序编译通过了，可执行时没反映呢。请那位老兄帮我看看。谢谢了。

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #2

>执行时没反映呢

是什么意思呵？

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #3

LENGTH（S） ？？？

 

T

tan_jian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #4

能有什么反映，你又没有ShowMessage(s1),到底什么意思吗？

不要说没有和事件挂上构这种低级错误阿!

 

B

bswilson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #5

S:=Trim(Edit1.text)会好一些.但你上述语句执行应该有一个结果,加一个label,然后
label1.caption :=S1;看一看运行结果,

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #6

另外我怀疑你理解有一点点错误，string中第一个字符的序号是1不是0
S1:=COPY(S,5,5) 得到第 5、6、7、8、9 个字符，而你的判断是长度10啊
S1:=COPY(S,2,3) 得到第 2、3、4 个字符

 

R

redrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #7

呵呵

 

逆

逆水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #8

谢谢大家了，是我自已搞错了，问题已解决了。
多谢，多谢。