摘要：
unit InternetTime; interface uses System.Net.HttpClientComponent, System.SysUtilS, System.DateUtils, Winapi.Windows; function GetInternetTime(var _Tim 阅读全文
posted @ 2022-02-13 21:48
只如初见o
阅读(461)
评论(0)
推荐(0)
摘要：
System.Variants VarToDateTime(); 测试 s:='2019-05-13';a:=VarToDateTime(s); ShowMessage(DateTimeToStr(a)); 支持多种格式 阅读全文
posted @ 2022-02-13 21:43
只如初见o
阅读(728)
评论(0)
推荐(0)
摘要：
TMonitor.Enter(Tobject); tryxxxxxxxxxxxxxxxxxx finally TMonitor.Exit(Tobject); end; 使用起来非常方便 阅读全文
posted @ 2022-02-13 21:39
只如初见o
阅读(449)
评论(0)
推荐(0)
摘要：
function GetInstanceFromhWnd(const hWnd: Cardinal): TWinControl;type PObjectInstance = ^TObjectInstance; TObjectInstance = packed record Code: Byte; { 阅读全文
posted @ 2022-02-13 21:36
只如初见o
阅读(251)
评论(0)
推荐(0)
摘要：
TstringList.TrailingLineBreak:=False;即可 阅读全文
posted @ 2022-02-13 21:34
只如初见o
阅读(145)
评论(0)
推荐(0)
摘要：
TStopwatch属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunning 获取一个指示 Stop 阅读全文
posted @ 2022-02-13 21:32
只如初见o
阅读(133)
评论(0)
推荐(0)
浙公网安备 33010602011771号