随笔分类 - Delphi
摘要：1.在component菜单中进入Install Packages删除不要的控件包。2.在component菜单中进入Configure Palette 删除不要的控件包名。3.再进TOOLS->ENVIRONMENT OPTIONS把原来控件的路径删除
阅读全文
摘要：//1cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols; var Column: TcxGridDBColumn; begin cdsPowerPrj.First; while not cdsPowerPrj.Eof do begin Column := v
阅读全文
摘要：procedure TfrmsysWorkManage.DBTreeCreateNode(Sender: TObject; Node: TdxOcNode); begin inherited; with Node,WorkCDS do begin Node.ChildAlign := GetNode
阅读全文
摘要：if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 S
阅读全文
摘要：with FDMemTable1 do begin DisableControls; //切断数据感知控件 try Open; //打开 //定义Field fld_Id := TIntegerField(FieldByName('Id')); fld_Value := TStringField(F
阅读全文
摘要：1 var 2 StartTime, EndTime: cardinal; 3 begin 4 StartTime := GetTickCount; 5 sleep(1000); 6 EndTime := GetTickCount; 7 caption := (IntToStr(EndTime -
阅读全文
摘要：相关资料：http://www.delphitop.com/html/Android/2778.html 网络相关的： android.permission.INTERNET 允许程序打开网络套接字 android.permission.CHANGE_NETWORK_STATE 允许程序改变网络连接
阅读全文
摘要：1 if MessageDlg('即将退出，是否继续？', 2 mtConfirmation, [mbYes, mbNo], 0) = mrYes then 3 begin 4 Close; 5 end; 对话框类型： mtwarning——含有感叹号的警告对话框 mterror——含有红色叉符号的
阅读全文
摘要：messageDlg, 是在对话框显示消息，并等待用户点击一个按钮，然后返回一个整数确定知道是那个按钮.原型:MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint):
阅读全文
摘要：1.右键应用快捷方式，找到应用安装目录 2.进入安装目录，找到MEmu.memu-prev，我的路径为：D:\Program Files\Microvirt\MEmu\MemuHyperv VMs\MEmu\MEmu.memu-prev，可以根据实际需要更改 3.notepad++打开文件，查看端口
阅读全文
摘要：一、usesHTTPApp二、使用前要用UTF8Encode转换成utf-8编码HTTPEncode(UTF8Encode(Text));不然和标准的url_encode()编码结果不一致，查询结果自然不是预期的。可以通用浏览器地址来查看。解码后要用UTF8Decode做解码后处理：UTF8Deco
阅读全文
摘要：Controls Application (the variable not a type) Forms Beep SysUtils or Windows (different functions) CGID_EXPLORER ShlObj CN_BASE Controls CoInitialize
阅读全文
摘要：mormot 数据集和JSON互相转换 usesSynVirtualDataSet, mORMotMidasVCL, SynCommons; procedure TForm1.Button1Click(Sender: TObject);varjson: RawUTF8;begin json := D
阅读全文
摘要：MORMOT通讯类说明 MORMOT在SynCrtSock.pas单元实现通讯类。 MORMOT实现TCP/UDP/HTTP/WEBSOCKET客户端和服务端的协议的单元文件。可以看出MORMOT实现的通讯协议是很全面的。MORMOT支持跨操作系统平台（WINDOWS 和 LINUX）。MORMOT
阅读全文
摘要：//MSSQL表中的字段是nvarchar格式，内容为null时通过synDBDataSet读出字段类型为wideMemo，将synDBVCL.pas单元procedure TSynBinaryDataSet.InternalInitFieldDefs按下面的方法修改就可以。 procedure T
阅读全文
摘要：引用 System.Diagnostics 单元 属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunn
阅读全文
摘要：程序中要使用数据库，首先是引用SynCommons, SynDB单元，根据不同的数据库类型，简单举几个例子：1 使用Access数据库,引用SynCommons, SynDB,SynOleDb三个单元,如果密码为空，设置后面三个参数直接为空就可以了.mORMot数据库处理方式 1 var 2 gPr
阅读全文
摘要：mORMot的下载地址是https://codeload.github.com/synopse/mORMot/zip/master，作者的几乎每天都有更新，所以大家最好还是学会SVN或者GIT的用法，保证代码的最新。GIT下载命令 git clone https://github.com/synop
阅读全文
摘要：CEF4和DcefBrowser下载网址git https://github.com/salvadordf/CEF4Delphi https://github.com/himStone/DcefBrowser
阅读全文
摘要：CPUID是一个处理器支持的操作指令，用于获取CPU特性信息。详见http://en.wikipedia.org/wiki/CPUID。 既然与CPU相关，就有适用范围的问题。判断其是否可用，需要检查EFlags的第21为是否可更改，如是，则表示处理器支持。 Intel 8086/286只有Flag
阅读全文
