说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在RichEdit中的串查找-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在RichEdit中的串查找-Delphi资料

procedure TMainForm.FindDialogFind(Sender: Tobject);

var

FoundAt: LongInt;

StartPos

ToEnd: integer;

SearchFlag: TSearchTypes;

begin

if frMatchCase in FindDialog.Options then

SearchFlag:=[stMatchCase];

if frWholeWord in FindDialog.Options then

SearchFlag:=SearchFlag+[stWholeWord];

with RichEdit do

begin

StartPos:=SelStart+SelLength;

ToEnd:=Length(Text) - StartPos;

FoundAt:=FindText(FindDialog.FindText

StartPos

ToEnd

[stMatchCase]);

if FoundAt<>-1 then

begin

SetFocus;

SelStart:=FoundAt;

SelLength:=Length(FindDialog.FindText);

end

else

begin

SelLength:=0;

SelStart:=StartPos;

Application.MessageBox(Pchar('找不到'+FindDialog.FindText)

'查找失败'

0);

end;

end;

end;

抱大腿:Square礼品卡服务进驻Passbook 科技创新剑指开源产业 “龙芯杯”破题自主研发 25GPU的Linux集群6小时内破解标准Windows密码 Lady Gaga与大数据的“火花” 手势才是王道:3款应用捕获3个设计灵感 YouTube的挑战者 JustinTV教你如何打造实时视频网站 黑客挟持160万用户密码 抗议联合国监管互联网 Twitter面对危机火速上线照片滤镜产品 Nike推创业孵化器:每个参与团队获2万美金 傲游发布云浏览器 支持跨终端数据同步 12个git实战建议和技巧 用友UAP产品线总设计师史周军访谈录 IE10新功能解析 支持Media Query(图) 单页Web应用或引领下一代Web新趋势? [CTO俱乐部第89期]新时代的前端开发 [多图]160台Mac mini打造的数据中心机架 是谁动了我的CPU! 欧朋CEO:GPU加速是手机浏览器的新趋势 TOP30专访:Splashtop研发中心总经理Alex Xu 2012Q3国内App开发者半数以上入不敷出 细微之处见真章 为什么要在try-catch-finally里加大括号 独立开发者:面对攻击就要“脸皮厚+更自豪” IBM纳米光子芯片对付大数据 单个通道25Gbps AWS数据仓库服务Redshift是最好的选择吗? 又赚了一笔:微软向两公司收取Android专利费 深度解析:Android4.2系统“应用验证服务” 欧洲移动游戏大会:五大行业趋势 大揭秘:Windows Phone 8 键盘输入的8个设计精髓 朝鲜:探寻最神秘的移动互联网王国 如何让IE 10玩转响应式网站 Windows Server 2012:令CIO激动的三个新特性 怎么用一控件去调用另一控件? 请教~~~~ Struts中的事件 如何在点击鼠标左键的时候,弹出一个弹出菜单? 求JBuilder8的下载地址,下完给分! Help!各位大俠,關于SQL查詢專業性的問題.....多多指教,在線送分! 两个菜鸟问题 急!急!急! 能不能用Socket类来实现广播,怎么实现发送和接收 为什么在98系统下Ado控件就不能用了,在线等! 关于在c++ builder中定义的类的编译时的问题 关于网络的简单问题 real media 插件哪里有急!! Tomcat连接池 请问一下哪里有Lotus5.11的下载啊! 怎樣使CrystalReportViewer里選擇打印機後可以預覽(200分) 怎么在一个控件中去调用另一个控件 小弟公司的项目用vss管理,请大家给小弟一个vss电子书好吗,大送分啊~~~~谢谢! MM求教各位 寻<<the c++ programming language>>中文电子版 请问各位,本人有C/C++的基础,学习C++ Builder 好学吗 请教关于Date 的一个问题 我在前台管理记录的时候误删除了几条记录,怎么样才能找回来 我在数据库里的记录是这样的,“ test",每行的前面有若干空格,为什么在网页上显示时,把我前面的空格给去掉了 [劲爆]关于小仙妹的秘密!雍亲王首次披露!!! 着急~~~~~~~~~~ 求crm开发方案一套!!! Bios改不了,哪位大佬帮帮忙? 对frame窗口传参的问题 寂寞如雪 (ocsdno) 新手问题~~很菜的~~大家指点下啊 asp.net 和asp 需要仿真可视化的文献资料,告知出处即可,十万火急!!! 怎么使用PL/SQL developer 导出所有用户表的数据成SQL语句? 版主 我门要是没分了 怎么办啊 怎么才能赚分啊 ODBC API 关于游标的问题~!100分 ?装完Oracle之后,登陆不了 一個關於路徑的問題?----郁悶----急!!!! 未将对象引用设置到对象的实例。 如何得到返回值呢? gps高手请进! 那位大侠能解释一下下面的一段代码 那位老大成功安装oracle8.1.7 for redhat9 ,1000分购买安装过程! 窗口重画的问题。 html页面中用<iframe></iframe>调用aspx页面,但打开的时候速度有点慢,不知是不是调用了aspx页面的关系 请问如何做一个锁定计算机的程序? ADO怎样把ACCESS数据表内容转存到Table中? 是系统问题吗? 一个有点难度的SQL语句问题 关于apache解析php的问题 在linux下调试perl,没有任何结果,是怎么回事? 我想问一下.NET究竟是做什么的,知情者速回,谢谢! talk about Saturday night 浍可以组什么词 人格化交易是什么意思 初下科学作业本B第四节力的图示 你怎样理解社会人思维成人思维等人格化的定义 尔雅作业判断对错"有些影像与生活没有任何关系 完全是虚拟出来的" CRAB HOUSE怎么样 The key is to evaluate the wholesentence ...问is to 用法?The key (is to) evaluate the wholesentence and (not to) take each word literally.请问这个句子中 “ is to "是什么语法名称?我知道有这种用法,动词如果后面要再跟 做一个YY圆形动态头像 带旧梦二字 下面带数字31019好的话. 机渎证明是什么意思 天下三,灵猴珠子求解我玩WL,想买个灵猴珠子,但我对珠子一窍不通,买来合体用的,但是不要求极品,一般般就可以了,不知道一般般的有没有多大作用.求解说,怎么样的珠子可以用来合体,给个大 加拿大首设比特币自动提款机“美丽中国”大型图片展在莫斯科举行吸烟让你变丑:双胞胎脸部皮肤对比作证解决伊核问题需要信任和耐心纽约规定21岁以下禁买烟普京治下的“俄式反腐”值得借鉴斯诺登最新照:在莫斯科乘游览船 未戴默克尔遭美国监听 德议员称斯诺登愿协孟建柱会见乌兹别克斯坦总统并主持中乌铁腕普京突击检查俄军核战备以色列攻击叙利亚军事基地 目标是俄制《投资者报》全体员工祝您新春快乐!药厂后卫:我想加盟佛罗伦萨连妞都不会泡的员工,要来干嘛?本田圭佑当选米兰德比最佳球员卡座:让家里一下子有情调哦巴洛特利:无法接受意丙球队邀约一碗饭见一个人的修养,不得不看海岛奇兵特遣队管理技巧 合理分工震荡上扬沪指收复3400 套牢盘化解【对话】中国手游应书岭:新的爆款来自骑士正式续约詹姆斯-琼斯尚武之神恐怖遗迹树的传说荣耀大唐混在末日的僵尸异界之天擎大陆软才是硬道理封神之绝命毒师异世龙魂军团大随英雄传三国不杀竹泉村旅游科尔沁草原旅游白洋淀鸳鸯岛旅游夏琼寺旅游柳侯公园旅游大龙潭旅游马鞍山公园旅游万隆旅游定州博物馆旅游红石野谷旅游岭脚村旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘