delphi DirectShow9 与ADate:= date() 冲突

2015-10-23 11:22:54 211 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

GPS从入门到放弃（一） --- GPS基础原理 GPS从入门到放弃（一） — GPS基础原理 GPS，全称Global Positioning System，已经广泛应用于我们的日常生活中了，现在的智能手机里都会自带GPS定位功能。这是一个美国的全球定位系统，虽然我们现在也有北斗了，但毕竟GPS搞的早，所以先从它开始研究起。整个GPS系统分三大部分：地面站卫星接收机地面站负责监控。它们通过接收、测量各个卫星信号，计算卫星的运行轨... 阅读详情

time 代码
procedure TForm1.Timer1Timer(Sender: TObject);
var
ADate:TDateTime;
days: array[1..7] of string;
Year, Month, Day: Word;
begin
days[1] := '星期日';
days[2] := '星期一';
days[3] := '星期二';
days[4] := '星期三';
days[5] := '星期四';
days[6] := '星期五';
days[7] := '星期六';
ADate:= date();
DecodeDate(adate, Year, Month, Day);

statusbar1.Panels[2].text:='现在时间:'+inttostr(Year)+ '年'+ inttostr(Month) +'月'+inttostr(Day)+'日 ' +formatdatetime('hh:nn:ss',time)+' '+ days[DayOfWeek(ADate)];;
end;