本文整理自网络,侵删。
begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;
相关阅读 >>
Delphi xe 使用savestate保存firemonkey状态的示例
Delphi urldownloadtofile 实现文件下载
Delphi windows 编程[2] - 学习窗体生成的过程二
Delphi 10.3 中安装程序自动升级插件autoupgrader_pro_v5.2
Delphi 实现类似windows的查找功能-遍历整个硬盘目录
Delphi 利用tcomm组件 spcomm 实现串行通信
更多相关阅读请进入《Delphi》频道 >>