CSDN论坛 > Delphi > VCL组件开发及应用

用Delphi如何识别EDIT1的最后几个字母 [问题点数:20分,结帖人sy0116]

Bbs1
本版专家分:0
结帖率 100%
CSDN今日推荐
Bbs8
本版专家分:34315
Blank
红花 2003年9月 Delphi大版内专家分月排行榜第一
Blank
黄花 2003年8月 Delphi大版内专家分月排行榜第二
Bbs3
本版专家分:574
Bbs5
本版专家分:4336
Bbs1
本版专家分:0
Bbs3
本版专家分:682
Bbs1
本版专家分:37
匿名用户不能发表回复!
其他相关推荐
ApplicationEvents1Message屏蔽鼠标右键
OnMessage事件只处理消息队列中的消息,SendMessage()发送的消息不会被截获。 任何窗体接收到一个windows消息,都会触发一次此事件   函数原型:   typedef void __fastcall (__closure *TMessageEvent) (tagMSG &Msg,bool &Handled);   Msg表示被截获的消息,Handled表示是否处理完成
识别图片中的英文字母
可以轻松地识别图片上的英文字母,安装后将图片拖入软件中或者自己手动打开,接着就可以自动识别,精度虽然有点差,但是影响不大。
Delphi中判断一个字符的位置在字符串开头或者末尾
procedure TForm1.btn1Click(Sender: TObject); var s: string; begin s := 'abcdefghijkilkjasldnbG'; if s[1]='a' then ShowMessage('a 在开始位置'); if s[Length(s)]='G' then ShowMessage('G 在最后一位');
delphi WebBrowser控件上网页验证码图片识别教程(一)
步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下: procedure TForm1.BitBtn1Click(Sender: TObject); var   I:Integer; begin   for I:=0 to WebBrowser1.OleObj
身份证最后一位算法 JavaScript实现
1.将下面代码复制到记事本中,保存文件名为 *.html2.使用浏览器打开就可以使用了。JavaScript请输入身份证号码:身份证号验证脚本 作者:xzlAwinfunction submit3(){alert('预留的按钮未实现功能!');}function submit1(){var card = document.getElementsByName('card')[0].value;//a
MATLAB字母识别
通过MATLAB,实现了字符的识别功能,稍作修改就可以用
Delphi判断字符串是否是数字、字母、大小写字母
超级无敌简单 但是还是贴上: function IsNumberic(Vaule:String):Boolean;   //判断Vaule是不是数字 var i:integer; begin result:=true;   //设置返回值为 是(真) Vaule:=trim(Vaule);  //去空格   for i:=1 to length(Vaule) do  //准备循环
Delphi开发技巧:字符串的相关判断
某一字符是否在字符串中     本实例是用AnsiMidstr()函数获取指定字符串中的单个字符,也可以获取指定长度的子字符串。运行结果如图5.10所示。 图5.10  判断某一字符是否在字符串中     主要代码如下:     procedure TForm1.Button1Click(Sender: TObject);     var       i,p:Integ
【Python-Opencv】KNN英文字母识别
特征集分析 数据集为letter-recognition.data,一共为20000条数据,以逗号分隔,数据实例如下所示,第一列为字母标记,剩下的为不同的特征。 T,2,8,3,5,1,8,13,0,6,6,10,8,0,8,0,8 学习方法 1、读入数据,并去除分隔号2、将数据第一列作为标记,剩下的为训练数据3、初始化分类器并利用训练数据进行训练4、利用测试数据验证准确率
Delphi中判断字母与汉字
procedure TForm1.Button1Click(Sender: TObject); var   s:string;   //保存字符串   i,e,c:integer;//保存变量 begin   s:=memo1.text;   e:=0;c:=0;   for i:=1 to length(s) do     begin     if (ord(s[i])>=33
关闭