随笔分类 - Delphi
摘要：//取字符串长度 function Len(const value: string): integer; begin if Value='' then result:= 0 else result:= PInteger(Integer(Value)-4)^; end;
阅读全文
摘要：数据区域的band 中往往会有些memo内容很多，但是由于页面显示的列本身就已经很挤，这种情况下就希望memo 不是横向的变长来显示更多的内容，可能一个备注你也事先无法预料到底有多长。 两种方式可以实现换行 1、采取设计期间，将memo设置为最大的行数高度，内容能自动换行，唯一不足的是，预先的ban
阅读全文
摘要：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
阅读全文
摘要：Android & iOS 启动画面工具 下载：OneSplash.启动画面工具.Aone.20190318.zip 说明：这一个简单的启动画面成生工具，只需要提供主图与底图，即可汇出所有尺寸的启动图。 操作方法： 主图（可直接将图拖入主图区内） 可设定主图留边大小。 可调整主图透明度。 底图（可直
阅读全文
摘要：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):
阅读全文
摘要：显示效果如下 解决 把每一个字段的options--Filtering 设置为true就可以了。
阅读全文
浙公网安备 33010602011771号