Ttime(20分)

A

articom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #1

如何用for循环控制一段时间？然后在这段时间内编写命令
我用的是var t:Ttime;
begin
for t:=0 to 10 do
……
end;
但是系统提示for loop control variable must have ordinal type,应该怎么改呢？

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #2

var t:Integer;
begin
for t:=0 to 10 do
begin
Sleep(1000);
……
end;
end;

 

J

japhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #3

TTime = type TDateTime;
TDateTime = type Double;
所以TTime是浮点型，不能用 for t:=0 to 10 do 循环

 

A

articom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #4

请问那个是sleep(1000)还是sleep(10000)? 这样不是只是空出这一段时间，程序并不执行吧？不是很明白，能不能解释下？

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #5

楼主莫非是想控制程序运行的速度？呵呵
那这样
var
t: Integer;
tmpTime, tmpTime1: TTime;
begin
tmpTime := 0;
tmpTime1 := Now;
for t:=0 to 10 do
begin
tmpTime := tmpTime + 0.002
{ 大约为3分钟 }
{ 执行程序 }
……
{ 判断时间 }
while (now - tmpTime1) < tmpTime do
sleep(10);
end;
end;

 

A

articom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #6

哦，好的，我试一下哦

 

A

articom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #7

我就是想控制程序的运行时间，不过你那个t有什么用处，和后面的sleep(10)有什么联系呀？

 

A

articom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-12

• #8

接受答案了.