我想问下while语句是不是判断当前时间是否正确,如果不正确,跟随其后的代码就没有存在的价值了!是这样的吗? while True do
begin
TimeTo := Time;
TimeWait := TimeTo - TimeFrom;
DecodeTime(TimeWait, Hour, Min, Sec, MSec);
if Sec >= S then Exit;
end;
end;
begin
TimeTo := Time;
TimeWait := TimeTo - TimeFrom;
DecodeTime(TimeWait, Hour, Min, Sec, MSec);
if Sec >= S then Exit;
end;
end;
解决方案 »
- DLL结构参数问题?
- ★高手帮忙啊★
- 问一个Tstringlist的简单问题...
- DBgrideh多表头导出EXCEL问题,我重写了TDBGridEhExportAsXLS.WriteTitle函数,高手帮我完善一下!谢谢!
- 求救!用idhttp组件下载的问题,散分50!
- 谁有有关Delphi和XML编程的列子,高分相求!希望大家帮忙!!!(急!!!!!)
- 数据写入数据库
- 急,关于dbedit的问题,难道delphi就这样!!!!!!
- 我想了好。。。。。。长时间的问题?能帮帮我么?
- 各位帮帮忙啊
- 请教高手们关于多线程类中创建窗体的问题
- 越用越觉得Windows 7很丑,而且设计得很不合道理!
procedure TForm1.Button1Click(Sender: TObject);
var
vTime :TDateTime;
procedure ShowTime;
var
Hour,Min,sec,Msec:Word;
begin
DecodeTime(vTime,Hour,Min,sec,Msec); ShowMessageFmt('%.12f'#13'%d,%d,%d,%d',[vTime,Hour,Min,sec,Msec]);
end;
begin
vTime := time; //获取当前时间 //ShowTime;
//0.320487557870
//7,46,30,125 vTime := 0.5; //自定义时间 ShowTime;
//0.500000000000
//12,0,0,0 vTime := -0.5; //自定义时间 ShowTime;
//-0.500000000000
//12,0,0,0 vTime := 0.75; //自定义时间 ShowTime;
//0.750000000000
//18,0,0,0 vTime := -1; //自定义时间 ShowTime;
//1.000000000000
//0,0,0,0end;