手机号码验证 if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 System.RegularExpressions,
说明： 本文章旨在总结备份、方便以后查询，由于是个人总结，如有不对，欢迎指正；另外，内容大部分来自网络、书籍、和各类手册，如若侵权请告知，马上删帖致歉。 QQ 群 号：513683159 【相互学习】 内容来源： 官方的手册（免费获取）Pxx=该手册的对应页码xx github-awtk 说明
一、简介 基于matlab GUI手机拨号音效模拟：按#会全部播一遍，按*会单独消除一个且播出特定声音 二、源代码 function varargout = tul(varargin) % TUL MATLAB code for tul.fig % TUL, by itself, creates a new TUL or raises the existing % singleton*. % % H = T
Delphi Live Bindings 初探 Live Bindings，顾名思义，动态绑定。 1、绑定前： 2、点击数据源： 3、绑定连线：点击 蓝色区域， 按住 鼠标左键，一直移动到绿色区域，然后松掉鼠标左键。 系统就完成了系统绑定： 然后，Label1(数据的接受者)，就会随 Edit1(数据的提供者)的数据变化而变
解决MFC多个对话框之间数据交换问题 初始 假设现在有两个对话框CDLG1与CDLG2 先右键对话框窗体添加两个类 类名设为CLDG1与CLDG2 任务 现在假设CLDG1有个输入框id为IDC_EDIT1 CDLG2有个输入框id为IDC_EDIT1，与一个按钮 目标是点击CDLG2的按钮就获取CDLG1的输入框，并输出在CDLG
用一个 Byte 数表示 8 个复选框的选择状态 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst; type TForm1 = class(TForm) CheckListBox1: TCheck
回复 "Timer008" 的一个类型转换的问题 - 不是很典型, 对其他人参考价值不大 问题来源: http://www.cnblogs.com/del/archive/2008/07/10/1239621.html#1250359 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont
事件自调用 - 回复 maxcool 的问题 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Cl
Direct2D (10) : 文本输出初步 uses Direct2D, TypInfo; procedure TForm1.FormCreate(Sender: TObject); var f: TTextFormats; begin for f := Low(TTextFormats) to High(TTextFormats) do CheckListBox1.Items.Add(GetEnumName(TypeInfo(TTextFormats), Ord(f)
参考： 通过发送 EM_SETRECT 消息使 VC 编辑框 文本垂直居中 其实是发送 EM_SETRECT 消息改变输入字符串的位置 1.在Edit控件所在对话框 OnInitDialog 函数中增加代码 1 CRect rect; 2 GetDlgItem(IDC_EDIT1)->GetClientRect(&rect); 3 rect.OffsetRect(5, 30); //设
我使用tcomport组件 读取 欧陆达AWH-30A这款电子称的重量，通过串口连接。 //波特率设置br9600 //ControlDTR 设置成 DtrEnable //TriggersOnRxChar设置成true var portData:string; //打开串口 procedure TForm1.Btn_openComportClick(Sender: TObject); begin if not ComP
C++ Builder（BCB）入门书籍推荐： 《C++Builder 6程序设计教程（第二版）》 （陆卫忠，刘文亮 等编著 /2011-04-01 /科学出版社）（当当网） 《C++Builder 6编程实例精解》（赵明现），PDF，是数字版的，非扫描版的，里面还有一个俄罗斯方块游戏的完整实现。 《精彩C++Builder 6程序设计》（台湾 吴逸贤），里面有10几
1、将下面代码保存为 upload_file.html <html> <head> <meta http-equiv="content-type" content="text/html;charset=utf-8"/> <title>upload_file</title> <link href="http://cdn.bootcss.com/bootstrap/3.
通常应用中，我会遇到需要用到多个串口的同时在一台PC上使用的情况，例如通过USB转串口等方式来硬件接入串口数目。 那么软件需要判断到底哪些串口号是可用的，才可以初始化相应的串口应用程序。 下面我们简单介绍一下，如何获取PC可用串口端口号，并将其显示在combo box控件中。 例程我们搜
Delphi 运行代码错误：cannot focus a disabled or invisible window 翻译：无法聚焦已禁用或不可见的窗口 错误原因： 无法聚焦指定控件或窗体 Delphi 正确写法： if Edit1.canFocus then Edit1.setfocus; 创建时间：2020.04.29 更新时间：
综合应用 import sys from PyQt5.QtWidgets import * from PyQt5.QtGui import * from PyQt5.QtCore import * class testLinEdit_003(QWidget): def __init__(self): super(testLinEdit_003,self).__init__() self.initUI() def initUI(self):
QQ聊天机器人 前几日，看到杂志上有一篇关于开发QQ聊天机器人的文章。谈到了对QQ循环发送消息内容，感觉倒也很好玩，于是拿起Delphi开始了我的QQ聊天机器人之路。 首先要明白自己要做什么，大家都用过QQ，知道给别人发送消息的整个过程吧！要实现循环发送消息的功能该有以下几个条件： 1.
上传文件 update.au3文件内容： ;由于Selenium本身的限制，不能驱动windows系统的资源，只能驱动浏览器来实现自动化测试，所以有些页面打开了系统的控件时，需要借助其他工具来实现。AutoIt这个工具正好能做这些事情。;*****注意：参数1可以输入控件的titile，但有时候不起作用，不稳定，最好还是
Delphi 自带函数 IntToHex 功能说明：该函数用于将“十进制”转换成“十六进制”。该函数有二个参数。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。 参考实例: Edit1.Text := IntToHex('100', 2); 执行结果，Edit1.Text等于64。 pro
