不说了贴代码。 Uses IniFiles; const SZ_APP_NAME = 'demo_test'; Procedure TForm1.GetSettings; var _MemIniU: TMemIniFile; _SettingsPath: string; begin try _SettingsPath := GetHomePath + PathDelim + SZ_APP_NAME
分类： Delphi
[转载]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事件添加如下代
[控件]Cxgrid标题栏自绘
再次感谢研究的无私分享，很实用的功能吧，老司机带路少走弯路！ 上码。 procedure CustomDrawColumnHeader(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean); const MultiLines: array [Boolean] of Integer = (cxSingleLine, cxWordBreak);
[分享]Apollo下的设置应用
最近折腾了下MQTT，本地弄服务端，用了mosquttio，没调试好，或许环境不行吧，改用Apollo broker，实现了。 但是每次运行使用DOS命令。 bin\mybroker\bin\apollo-broker run 这种在实际应用中很是不妥的，幸亏提供了以服务的形式启用。 bin\apollo-broker-service install bin\apollo-broker-service start