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

在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;

Windows 8的IE10在浏览器安全测试中独占鳌头 程序员如何做出“不难看”的设计 JDK6明年2月停止更新,甲骨文呼吁尽快升级至7 《时代》评选年度十大视频游戏,激战2居首 《时代》评选年度十大科技产品,iPhone 5居首 Loopjoy:让开发者在移动游戏里贩售真货 iPhone 5S真机照片泄露 明年初上市 Beeline:从“蓝精灵村庄”到“捉鬼敢死队” Windows Server 2012域服务的六大改进 如何编写出优美的JavaScript代码? Unity CEO:不会因赌博游戏谋取金钱利益 云领域:且看亚马逊、Rackspace、微软及谷歌四国争霸 十一位EMC高管读2013技术趋势 你准备好了吗? Yahoo:拥抱Hadoop和HTML5 苹果聘女黑客为系统安全员 曾让Vista推迟发布 移动游戏定价之谜:0.99美金行不通 9.99美金和19.99美金才是王道 2012末日年:《时代》评选年度十大App 使用HTML5 Web存储实现离线工作 紧跟亚马逊、谷歌步伐 微软下调Azure云服务价格 云计算一周热点回顾:Hadoop专家分享大数据技术工具与最佳实践 Python之父Guido Van Rossum离开谷歌 一月加盟Dropbox 图灵奖获得者Butler Lanpson:计算机在做些什么 华为高级技术经理Anoop Sam John:HBase的二级索引 秦令今:技术是竞争的核心,形成自己的特色! 兰旭:拒绝同质化,做自己的真材实料! Cloud Foundry直面PaaS对手 初具商用能力 IndieBros访谈:探寻《2+18+200万》背后的故事 移动周报:生存还是毁灭 HTML5未来路在何方? 开发者的新机遇:微软生态系统打开开源大门 阻碍创新:谷歌、Facebook请求驳回抽象专利概念 Apple专利战分析:战火不停 创新不止 如何挂载usb硬盘?? 使用TrackBar控件的问题 挑战高手, 巨难问题. 有关不同系统(ACCESS, MSSQLSERVER) 的SQL语句兼容问题 奇怪问题:我的光驱,有的光盘能读,有的不能读(比如自己刻录的) SQL Server 安装时的密码,忘了,如何取得,在线等待 挑战高手, 巨难问题. 有关不同系统(ACCESS, MSSQLSERVER) 的SQL语句兼容问题 谁能告诉我,汇编论坛在哪?谢谢 调色板问题 挑战高手, 巨难问题. 有关不同系统(ACCESS, MSSQLSERVER) 的SQL语句兼容问题 如何在WLS7中部署一个Servlet和一个JSP? 挑战高手, 巨难问题. 有关不同系统(ACCESS, MSSQLSERVER) 的SQL语句兼容问题 新手问题: 一个简单的js效果实现问题 吐血送分!关于datagrid的数据更新问题! 为什么不能进大富翁论坛 谁有KV3000啊,传个给我行吗,我下载了好几个都不行, 我有原版盘坏了,谢 VB 怎么调入并执行写好的SQL文件. 今天我生日,郁闷散分 吐血送分!关于datagrid的数据更新问题! 请问powerdesigner生成.sql时,如何在.sql中包含Comment信息 DBGrid改变行的颜色 下载英文Windows的地址 我要在一個按鈕點擊后,開啟另外一個頁面,並且這個頁面自動處於打印預覽狀態,怎麼寫? 正在上升中,公司给自己加薪了,自己却突然心灰意冷. 我想问什么是temporary object?请高手指教 那位大哥在HP-UX下配置过PHP和ORACLE? 宝丽金120首金曲 Dialogs(wdDialogFileOpen)提示ActiveX不能创建对象? 那位朋友知道如何在网络上截取一个信息(数据包) 大家看过dvdrip的片子吗?有一个问题请问 (winform)我想编写一个简单的浏览器,问题1 在LINUX下如何安装软件啊? 苏州的朋友可以进来看看吗? 关于游标类型的问题 如何比较两幅近似图像并得出偏移的距离? 怎样处理鼠标拖动事件。 绘制图形时的自动滚屏问题 请教怎么去掉字符串后面带的空格? 请教关于双机通讯的问题,谢谢 播放问题 如何使用jsp显示数据库中的数据? 请问什么叫模态窗口啊? Win32标准dll,VB下调用问题 挑战:对手机短信文字自动解析? 推荐一个linux下的杀毒软件. 关于oicq? 二手笔记本多小钱? 关于在iis中的resin的配值问题,急,求帮助!!!! PHP中的类到底是怎么回事 怎么知道INI文件的某一个小节下有几个关键字? 不知道发在这里对不对。。。有关DVD 背诵英语句子有用吗?//还有怎么提高英语的阅读和完型分数?我要升高二了 我想在这两年内多背诵些英语句子 是比较简单的那种 就是新概念的一些句子 这样有用吗?我英语最差的是阅读和完 THE ORIGINS OF VIRTUE怎么样 英文"月饼"怎样拼写? 怎样在短时间内记忆英语句子早读时间很短 但是要背的东西好多 特别是句子 我语法神马的都不懂 上了高中之后被老师打击的没有信心了 一看到句子就不太敢背 怕背错 怎么才能准又快的记 THE THEOLOGICAL ORIGINS OF MODERNITY怎么样 change your diet and lifestyle from today!中文翻译 How did the Silk Road influence the development of Ancient China? THE ORIGINS OF THE CULTURAL REVOLUTIONVOL1怎么样 change your diet and lifestyle feom today.的中文是什么? How do you think of the current development of China?关于一个方面就行 THE ORIGINS OF POLITICAL ORDER怎么样 "迷"的英语单词? 英语翻译Sports have developed fast in our country these years.In 1974,our country first came to the Asian Games.In 1978,in the 8th Asian Games,our country won the second place.Our country has won the largest number of gold medals in the past six 保留这个词的准确意思? 迷眼睛的英语单词和韩国语单词是什么?(^-^) The number of Chinese speakers in the world ______ with the development of China is much larger than ever before.A.grows B.grown C.growing D.grow 原因? 猜猜这是什么,猜对给好评哟 爸爸做过来,经他一点拨我豁然开朗,真是(),于是我很快解开了这道难题.(在括号里填上一句诗) No problem,Do you think it is necessary? the pressure deviation will limit the change speed of the main steam valve’s 描写落汤鸡的好句好段和描写人拾金不昧的好句好段 1-the development of modern cities,both in population size and in functionality,necessitates the r1-the development of modern cities,both in population size and in functionality,necessitates the removal of certain existing structures whose history ca ( ) l was sitting on the sofa,my father came into the roomA While B before C Until D Since 麻烦大家帮我起个英文名,需要跟中文“娇”谐音,爱娇美丽娇娇宝都可以.谐音或者意思相近 It plays an important part__the development of the modern world.A.at B.on C.of D.in原因? out of pressure是什么意思?some people get tattoos out of pressure,这里的out of pressure是出于外界压力的意思还是为了摆脱压力的意思?希望真正懂的人回答,不要瞎猜.什么情况下是因为,什么情况下是摆 要列试哦 英语翻译着急中ing——, his wife has been______a lof of pressure on him to change his jobA taking B exertingC givingD pushing 作文《我最佩服的一个人》开头怎么写?写出自己的真情实感,语句要通顺!可以写谁? “Do you want to sell sugar water for the rest of your life,or do you want to change the world?” 现有0.270kg质量分数为10%的氯化铜溶液.计算:(1)溶液中的氯化铜的 物质的量是多少?(2)溶液中的铜离子和氯离子的物质的量是多少? This accounting principle requires companies to use the accrual basis of accounting .The matching求翻译 请问Your life can be what you want it to be... 氯化铜溶液中c(Cu2+)与c(Cl-)的关系? 猜一下,即给好评 is this your eraser? ( ).it's my sharpenis this your eraser? ( ).it's my sharpener.a.no,it isn't.b.yes,it is. 英语翻译甲方违约责任补充约定:甲方连续3期或累计6期未按约定的金额偿还贷款本息,甲方被视为违反本借款合同,本贷款合同项下全部借款立即到期,如甲方以定期存单出质,该质押的定期存 李商隐的嫦娥与李白的把酒问月两首诗对嫦娥的评价一样吗?通过比较,你对“角度”有 Come to the Hilltop Language School and change your life.全篇课文翻译, 英语翻译10.This Contract as written in English shall be interpreted and the rights of the parties thereunder shall be determined by the English text only the effect of which shall not be varied or affected in any way by any other characters writt 古诗《嫦娥》是李商隐根据什么节日流传的神话故事什么创作的 英语翻译.我感激不尽啊...我有急用的这是一篇文章的题目来的.硪想要整篇文章的翻译.而卟是单单一句话 小学生作文关于我最熟悉的一个人急400~500字 怎么写? Come to the hilltop language School and change your life的丛句和动词不定式 作文我熟悉的一个人,要500字以上的,我要开头和结尾, 怎么写啊 要理由---May I speak to Lucy?---This is ___________ speaking.A.her B.she C.she’s D.hers the man sitting in the car is my uncle.为什么用sitting. 这怎么写? 土屋安娜 Change your life 怎么翻译?Change your life Did I say that I want you? Did I say I need you? Did I kiss you that night? I don't remember who was next to me Boy you'd better watch your mouth You always lied to me I'm not gonna tr 赞美路灯的词和句子有哪些? cries in adistan是什么意思 Is this----------eraser A、he is B、he C、her D、she THE ORIGINS OF TOTALITARIANISM怎么样 猜猜这是什么 这两题要怎么做 连词成句:uncle motorbike man on my the the is 月饼英语怎么拼写“月饼”英语怎么拼写?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘