大大帮我看看,一个关于循环的问题 |
缺席
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
我代码是要在指定的时间内开启,并在指定的时间内关闭。代码如下,定时开启行了,但是定时关闭,怎么也不行啊。
[code delphi] var Found: Boolean; time:TDateTime ; s,t:TDateTime ;i:Int64;p:string; begin Found := False; ClientDataSet2.DisableControls; try clientdataset2.edit; ClientDataSet2.First; while not ClientDataSet2.Eof do begin if FormatDateTime('hh:mm:ss',ClientDataSet2.FieldByName('开始时间').asdatetime) = formatdatetime('hh:mm:ss',now) then begin Found := True; p:=TimeToStr(ClientDataSet2.FieldByName('结束时间').asdatetime); s:=now; Break; end; ClientDataSet2.Next; end; finally ClientDataSet2.EnableControls; end; if Found and (ClientDataSet2.FieldByName('计划类型').asstring='定时播放')then begin WindowsMediaPlayer1.controls.play; end; if FormatDateTime('hh:mm:ss',now)=p then ShowMessage('over'); end; [/code] 能否告诉我是哪里错了么,谢谢
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |