09 2020 档案

手机号码验证

摘要：if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 S 阅读全文

posted @ 2020-09-30 08:56 Thenext 阅读(279) 评论(0) 推荐(0) 编辑

FDMemTable 提示操作速度尤其是循环

摘要：with FDMemTable1 do begin DisableControls; //切断数据感知控件 try Open; //打开 //定义Field fld_Id := TIntegerField(FieldByName('Id')); fld_Value := TStringField(F 阅读全文

posted @ 2020-09-19 23:50 Thenext 阅读(447) 评论(0) 推荐(0) 编辑

Delphi 计算程序运行时间

摘要：1 var 2 StartTime, EndTime: cardinal; 3 begin 4 StartTime := GetTickCount; 5 sleep(1000); 6 EndTime := GetTickCount; 7 caption := (IntToStr(EndTime - 阅读全文

posted @ 2020-09-19 23:49 Thenext 阅读(409) 评论(0) 推荐(0) 编辑

DelphiXE Android的所有权限按照分类总结说明

摘要：相关资料：http://www.delphitop.com/html/Android/2778.html 网络相关的： android.permission.INTERNET 允许程序打开网络套接字 android.permission.CHANGE_NETWORK_STATE 允许程序改变网络连接阅读全文

posted @ 2020-09-19 09:06 Thenext 阅读(265) 评论(0) 推荐(0) 编辑

Delphi中Messagedlg用法

摘要：1 if MessageDlg('即将退出，是否继续？', 2 mtConfirmation, [mbYes, mbNo], 0) = mrYes then 3 begin 4 Close; 5 end; 对话框类型： mtwarning——含有感叹号的警告对话框 mterror——含有红色叉符号的阅读全文

posted @ 2020-09-15 10:32 Thenext 阅读(361) 评论(0) 推荐(0) 编辑

Delphi中Messagedlg的用法与汉化

摘要：messageDlg, 是在对话框显示消息，并等待用户点击一个按钮，然后返回一个整数确定知道是那个按钮.原型:MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint): 阅读全文

posted @ 2020-09-12 22:09 Thenext 阅读(982) 评论(0) 推荐(0) 编辑