本文整理自网络,侵删。
begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;
相关阅读 >>
Delphi 10.3 处理csv tstreamreader 自带split用法
Delphi xe(indy10)tidbytes转ansistring的实现
Delphi adoconnection1连接mssql数据库方法
Delphi分割字符串的函数--extractstrings
Delphi trayicon控件,如何实现窗口最小化的时候到系统托盘?
更多相关阅读请进入《Delphi》频道 >>