怎样在一个循环中,等待另一件事做完再继续循环?? (50分)

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #1

这个另一件事就是:等待滚动的字幕完成第一次滚动.
我的方法是:读取字幕当前的纵坐标,
如果小于0,则循环继续.
但是结果却没有达到效果,请各位指点指点,多谢!

 

L

lyq2276959

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #2

while 完成do
begin
你的字幕处理
......
end;

 

A

arnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #3

你就是把另外一个循环包含在这个循环中间
比如
循环一
begin
循环二
begin

end;


end;


IS ok?

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #4

我也这么做的,可是好象不行

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #5

是这样的，我现在做的程序是:从一个txt文件中从第一行开始读,如果是".txt"文件
就滚动字幕,滚动一遍结束后在读第二行,如果是avi格式的话就播放avi,在继续...

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #6

现在在字幕显示这里出了问题

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #7

for ...
begin
.......
repeat
j:=oxMarquee1.CurrentPosY;//Venus控件中的oxMarquee可以实现字模滚动,
currentPosY是当前文本的纵坐标的位置
until
j<0;
end

 

A

arnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #8

出了问题？具体说是什么问题？

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #9

就是字幕没有出来就做下面的事了

 

A

arnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #10

单步调试或者在代码里面加入showmessage(inttostr(j));
看看j是怎么变化的再说。
或者加入调试窗口

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #11

显示是0,字幕在移动,等我按确定后就做显示图片了

 

A

arnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #12

确定是一次还是两次？

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #13

不好意思，刚才在运行的是这段代码:
While j>0do
j:=oxMarquee1.CurrentPosY;
showmessage(inttostr(j));

 

A

arnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #14

估计你弄错了，你想，如果j为0的话，这段代码就不会执行，那么
你又怎么可以按确定呢？

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #15

oxMarquee1.CurrentPosY是一个变化的值,但从程序执行来看,
程序不等字幕上移结束就做下面的事了

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #16

那我在Formcreat事件里给j赋个oxMarquee1.height,结果也不行

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #17

而且会死在那里,应该是进入了一个死循环了

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #18

showmessage(inttostr(j));
While j>0do
j:=oxMarquee1.CurrentPosY;
出现273,按确定后就死掉了,这样循环有问题

 

P

pcsHP

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #19

用多线程

 

W

wangxian11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #20

今天我想了一下,在执行循环的时候,Form不再进行刷新,
所以oxMarquee1.CurrentPosY的值不变
看来一定要使用多线程,不过我还没学过多线程,现在要找点书看看了