获取数据库所有表行数占用，闲话少说上码。 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
年度归档： 2017 年
[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
[转载]UNIDAC用法总结
常言道，细微之处见体贴。UniDAC有一些过人的方法或属性。 比如，刷新单条记录（RefreshRecord）、多表更新的属性（UpdatingTable）、宏替换参数(Macros)、 集成删除/新增/修改/刷新/锁定SQL语句、FetchRows，更让人称道的是引入了UpdateSQL组件。 TUniTable、TUniQuery和TUniStoredProc是用来检索和编辑数据的UniDAC控件. ***************************TUniQuery**********
[转载]设置线程区域语言防止乱码
uses Windows; 在工程文件中添加一句代码，如下： Application.Initialize; //添加以下一句解决外文系统乱码问题 SetThreadLocale(DWORD(Word(SORT_DEFAULT) shl 16) or DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or DWORD(Word(LANG_CHINESE))); Application.CreateForm(TForm1, Form1);
[控件]Memo中替换指定行的内容
实际项目遇到的，比如在Memo里面第一行里有个逗号, 想替换成空，但是第二行里的不改变。 procedure TForm1.Button1Click(Sender: TObject); var StrBuf:string; begin StrBuf:=Memo1.Lines.Strings[0]; StrBuf:=StringReplace(StrBuf,',','',[rfReplaceAll, rfIgnoreCase
[控件]FastReport调用Delphi中的自定义函数
有些东西始终都是需要互相访问的，报表使用程序的函数也是家常了。 1.载入调用函数名。 procedure TFKy_Fayun.FormCreate(Sender: TObject); begin frxReport1.AddFunction('function HeBin(s1:Double;s2:Double;s3:Double): string;','HeBin','合并函数'); end; 2.在报表的UserFunction事件添加如下代
[分享]关闭小米电视的开关机广告
小米电视现在已经进入了开关机的15秒广告强制模式，开机还得看完广告，有点被强X的感觉，想个办法干掉这不爽的动作。 进入路由器防火墙下禁用网址列表添加如下地址。 stat.pandora.xiaomi.com upgrade.mishop.pandora.xiaomi.com logonext.tv.kuyun.com config.kuyun.com api.io.mi.com mishop.pandora.xiaomi.com dvb.pandora.xiaomi.com api.ad.xia