版本: 0.96後 TerminateOnBrowserClose:=True; //本屬性在UniMainModule[關閉整個瀏覽器] 執行事件如下 UniGUIMainModuleBrowserClose UniGUIMainModuleSessionTimeout UniGUIMainModuleDestroy [關閉網頁] 執行事件如下 UniGUIMainModuleBrowserClose UniG
月度归档： 2017 年 9 月
[FastReport]创建人民币大小写转换自定义函数
设置如下: ———- function TForm1.MoneyCn(mmje: Double): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1, s2: string): string; begin Result
[Delphi]统计时间StopWatch类
Delphi 现在提供了秒表类TStopWatch,用于统计程序使用的时间。其实，看这个类的实现接口，实际就是实现了C#,Java中早就有的StopWatch类。 这样我们就可以放弃gettickcount函数了。 记得引用System.Diagnostics单元。 var NewTime: TStopwatch; …… Create:建立一个实例 Reset:复位 Start:开始计时 StartNew:返回一个新的实例 Stop
[SQL]获取数据库所有表行数占用
获取数据库所有表行数占用，闲话少说上码。 SELECT a.name 表名 , b.rows 记录数 ,rtrim(8*b.dpages)+'Kb' 占用, FROM sysobjects AS a INNER JOIN sysindexes AS b ON a.id = b.id WHERE (a.type = 'u') AND (b.indid IN (0, 1)) ORDER BY a.name,b.rows DESC
[ini]Delphi读取UTF-8格式ini
不说了贴代码。 Uses IniFiles; const SZ_APP_NAME = 'demo_test'; Procedure TForm1.GetSettings; var _MemIniU: TMemIniFile; _SettingsPath: string; begin try _SettingsPath := GetHomePath + PathDelim + SZ_APP_NAME