delphi编辑的memo问题

delphi小白 2018-04-30 05:18:42

1.在memo的文本中出现在关键字'G' 后的数字不是00-99这个范围内的整数的话（个位数字前面要有0）提示出现错误
例如在memo的文本中出现G100，就会显示出现错误。
2.在memo文本的同一行同时出现G00和G01，显示出现错误。
3.在一行中，G01后不能出现R,I,J,K四个字母。

...全文

1802 11 打赏收藏转发到动态举报

写回复

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

天行归来 2018-05-02

打赏
举报

回复

可以用正则，代码更精简。第三方正则组件： SuperObject

xiaocongzhi 2018-05-02

打赏
举报

回复

Memo的内容自己按行处理；或者用正则表达式

日立奔腾浪潮微软松下联想 2018-05-02

打赏
举报

回复

从XE开始，RTL就有内置的正则表达式支持，在System.RegularExpressions单元。

liups 2018-05-02

打赏
举报

回复

同意7楼，先取每一行，然后使用正则表达式处理

delphi小白 2018-05-01

打赏
举报

回复

引用 2 楼 nebula845026 的回复:

你是要解析G代码吗? Memo中针对每一行做处理但是你的第一条需求有问题,'G'后面的字符如果出现其他字符如何处理,比如其他英文字符,还是G后面只能跟两位数字其他的需求2,3倒是好处理,2 的话就直接在该行字符串里查找"G01","G00",通过查找结果来判断是否错误 3 的话先判断是否有G01,如果有的话获取G01后面的字符串,然后判断RIJK是否在里面即可

谢谢，是解析G代码，做的是对编辑好的文本进行检查错误处理。第一点我是想 ‘G’字母后出现的不是指定范围内的字符就会提醒错误，不管是英文还是不在范围内数字（但要在第二个关键字之前的内容里）第二点，请问如何在同一行同时查找两个不同字符串？用什么函数？第三点是用pos函数吗？谢谢

lyhoo163 2018-05-01

打赏
举报

回复

比较好的办|去是循环搜索。

nebula845026 2018-04-30

打赏
举报

回复

你是要解析G代码吗? Memo中针对每一行做处理但是你的第一条需求有问题,'G'后面的字符如果出现其他字符如何处理,比如其他英文字符,还是G后面只能跟两位数字其他的需求2,3倒是好处理,2 的话就直接在该行字符串里查找"G01","G00",通过查找结果来判断是否错误 3 的话先判断是否有G01,如果有的话获取G01后面的字符串,然后判断RIJK是否在里面即可

模拟windows的命令行,将结果显示在memo框内方便编辑

本程序使用Delphi7开发，可以产生任意区间的任意个随机数，并可以把产生的随机数保存为txt文本文档，对错误的输入有提示反馈，具体使用方法如下： 1.在‘功能区’‘最小值’输入框输入欲产生随机数的最小值（只能输入数字）； 2.在‘功能区’‘最大值’输入框输入欲产生随机数的最小值，形成区间（只能输入数字）； 3.在‘功能区’‘随机数个数’输入框输入欲产生随机数的个数（只能输入整数）； 4.‘产生随机数’按钮：生成随机数，其结果显示于左边的memo组件里（如果输入有误会弹出相关提示！）； 5.‘生成txt’按钮：设置产生的随机数保存为的txt文档路径并保存文件，默认文件名为：“随机数.txt”； 6.‘清除’按钮：清除所有文本编辑框的数字； 7.‘清除结果’按钮：清除产生的随机数； 7.‘退出’按钮：退出程序。

delphi实现的指定字符串高亮显示，就像语法编辑器中的关键字高亮效果

硬件与系统 ========== DELPHI控件数组的简易实现 DELPHI文体与图象的打印 DELPHI中MEMO组件的光标定位避免二次运行得到WINDOWS用户名和序列号动态调整显示器的分辨率获取CPU信息获取WINDOWS和SYSTEM目录获取窗口标题栏中的文字获取或更改计算机名获取内存信息获取驱动器类型信息获取文件的日期信息监视剪贴板内容检测INSERT、CAPSLOCK、NUMLOCK、SCROLLLOCK键的状态检测磁盘容量检测驱动器是否准备就绪检测软盘或光盘是否变化控制WINDOWS的关闭功能启动屏幕保护程序如何将鼠标锁定在一定的范围如何旋转字体如何隐藏和显示WINDOWS的任务条使应用程序不出现在任务栏上限制编辑框的输入有背景的窗体

本组代码采用标准AES算法（基础算法引用ElAES.pas，感谢作者），代码支持AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit，密钥0填充，Delphi与JAVA互相加解密。加密前Delphi与JAVA统一字符编码为UTF8，不然加密结果会不同。Java默认情况下使用不了密钥长度192bit及256bit密钥需要下载JCE下载地址大家自己百度就好了，下载好之后把local_policy.jar/US_export_policy.jar两个jar包放到JRE目录%jre%/lib/security下。delphi版本delphi10开发（xe以上应该都没问题）。验证时请注意delphi memo1.text中换行问题（例如编辑代码时复制大段的文字到memo1.lines中）运行时自动换行处delphi会自动加上回车符导致加密结果不同。实现了AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit，密钥0填充。是标准的AES算法，支持在线AES加解密网站互解。本源码从CSDN一位前辈的源码基础上做了更改，增加支持加密返回BASE64，更加完善。在此感谢原作者： http://download.csdn.net/download/qiaohaidong/9477264 需要注意的是仅在XE及以上版本支持Base64返回结果，Delphi7的base64不能直接支持。

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章