本文整理自网络,侵删。
begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;
相关阅读 >>
indy 中idhttp元件出现http status 302错误
Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名
Delphi中webbrowser(或者embeddedwebbrowser)控件打开部分网站报“invalid floating point operation”异常的解决方法
更多相关阅读请进入《Delphi》频道 >>