本文整理自网络,侵删。
begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;
相关阅读 >>
Delphi - 利用dll编程控制摄像头实现拍照、录制视频
Delphi 建立快捷方式的函数: createshortcut
Delphi xe firemonkey的stylebook皮肤控件的使用
Delphi的tclientsocket组件和tserversocket组件(c/s)说明
更多相关阅读请进入《Delphi》频道 >>