02 2022 档案
摘要：unit InternetTime; interface uses System.Net.HttpClientComponent, System.SysUtilS, System.DateUtils, Winapi.Windows; function GetInternetTime(var _Tim
阅读全文
摘要：System.Variants VarToDateTime(); 测试 s:='2019-05-13';a:=VarToDateTime(s); ShowMessage(DateTimeToStr(a)); 支持多种格式
阅读全文
摘要：TMonitor.Enter(Tobject); tryxxxxxxxxxxxxxxxxxx finally TMonitor.Exit(Tobject); end; 使用起来非常方便
阅读全文
摘要：function GetInstanceFromhWnd(const hWnd: Cardinal): TWinControl;type PObjectInstance = ^TObjectInstance; TObjectInstance = packed record Code: Byte; {
阅读全文
摘要：TstringList.TrailingLineBreak:=False;即可
阅读全文
摘要：TStopwatch属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunning 获取一个指示 Stop
阅读全文
