我用了TABLE控件。里面按照时间分类有n多条记录，我想根据时间来测试，只要时间相等则运行相应的操作，比如20:00干么，22:00干么，等等，现在的问题是我怎么用循环来做。我试图添了一个TIMER控件来写循环，没1分钟执行一次，但是当程序运行到此处却没有任何反应，这个是何故啊？

[code delphi]
procedure TForm1.Timer4Timer(Sender: TObject);//间隔为1分中刷新。
begin
// ABSTable1.first;
// while not ABSTable1.eof do
// begin
// timer3.enabled:=true;//间隔为1秒
// ABSTable1.next
// end;

procedure TForm1.Timer3Timer(Sender: TObject);
var s1:string;
begin
if (FormatDateTime('yy:mm:dd',now)=FormatDateTime('yy:mm:dd',ABSTable1.FieldByName('提醒日期').AsDateTime))
and (formatdatetime('HHNNSS',now)=formatdatetime('HHNNSS',ABSTable1.FieldByName('提醒时间').AsDateTime)) then
begin
s1:=ABSTable1.FieldByName('提醒类型').AsString;
if s1 = '气泡提示'then
begin
BASS_Init(-1,44100,0,0,nil);
Ballontip;
// BASS_Free;
end;

if s1 = '闪屏振动'then
begin
BASS_Init(-1,44100,0,0,nil);
Shakewindows;
end;
end;
end;

[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

您好,

您例中的 timer4 未完成, 也未說明 timer3, timer4 的分別用途.
現假設 timer4 沒作用, timer3 每分鐘觸動一次, 判斷當時是否在 table 中存在記錄.

建議
1. 將 abstable1 的 filtered 設為 true;
2. 並在 timer3 中, 將 abstable1.filter 設為 檢查 提醒日期 提醒时间 是否等於 timer3觸動時的系統日時,
若 eof 則不做任何事, 若非 eof 則做 提醒类型 所定義的事.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

ST33CHEN,可否帮我写下代码？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

看了一下你的程序代碼,你可以先按日期時間排序,然後定位到當前日期時間最近的一條記錄,算出時間差,將時間差做為定時器的時間,在定時器中你再对下一记录的时间差设置好,另外過程最好寫成線程.