孤
孤云
Unregistered / Unconfirmed
GUEST, unregistred user!
A[1] |---------|--------------|----------| //假设|-20-|-40-|-25-|
1 2 3 //1，2，3表示第几次运算
A[2] |------------|-------|------------------|
1 2 3
A[3] |---------------------|-------------|-------------------|
1 2 3
A[4] |
问题是这样的
程序开始，第一次计算得到A不同的时间长度，接着等一段时间，以后当等待的时间接近A的值时都要重新计算A
我是这样做的
cp:=now;
for i:=1 to n do
begin
betime:=cp+A/24/3600;
bt:=A;
end;
while true do
begin
for i:=1 to n do
begin
if SencondsBetwween(cp,betime)=bt Then
begin
........
........//执行必要的操作，同时产生新的A值
betime:=betime+A/24/3600;
bt:=bt+A;
end
end;
end;
但是感觉不太稳定，心里也没底，如果n非常大的话，不知道能不能响应SecondsBetween
请大家帮帮忙能不能提供其他好的思路和想法，先谢了
//不让用Timeer控件
1 2 3 //1，2，3表示第几次运算
A[2] |------------|-------|------------------|
1 2 3
A[3] |---------------------|-------------|-------------------|
1 2 3
A[4] |
问题是这样的
程序开始，第一次计算得到A不同的时间长度，接着等一段时间，以后当等待的时间接近A的值时都要重新计算A
我是这样做的
cp:=now;
for i:=1 to n do
begin
betime:=cp+A/24/3600;
bt:=A;
end;
while true do
begin
for i:=1 to n do
begin
if SencondsBetwween(cp,betime)=bt Then
begin
........
........//执行必要的操作，同时产生新的A值
betime:=betime+A/24/3600;
bt:=bt+A;
end
end;
end;
但是感觉不太稳定，心里也没底，如果n非常大的话，不知道能不能响应SecondsBetween
请大家帮帮忙能不能提供其他好的思路和想法，先谢了
//不让用Timeer控件