鱼C论坛

 找回密码
 立即注册
查看: 3577|回复: 8

[争议讨论] 第028讲用memo写的记事本中的“查找”看不明白?

[复制链接]
发表于 2015-6-18 20:12:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
procedure TForm1.FindDialog1Find(Sender: TObject);
var
  i, j, PosReturn, SkipChars: Integer;
begin
  For i:= 0 to Memo1.Lines.Count do
  begin
    PosReturn:= Pos(FindDialog1.FindText, Memo1.Lines[i]);
    If PosReturn <> 0 then
    begin
      Skipchars:= 0;
      For j:= 0 to i-1 do
      Skipchars:= Skipchars + Length(Memo1.Lines[j]);
      SkipChars:= SkipChars + (i*2);
      SkipChars:= SkipChars + PosReturn - 1;

      Memo1.SetFocus;
      Memo1.SelStart:= SkipChars;
      Memo1.SelLength:= Length(FindDialog1.FindText);
      Break;
    end;
  end;
end;



第028讲用memo写的记事本中的“查找”看不明白?
在论坛上找了好多页,也没有人提出 这样的问题,希望懂的给详细解释一下,好吗?
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2015-6-18 21:04:05 | 显示全部楼层
期待中…………
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2015-6-19 10:50:21 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-6-19 16:22:04 | 显示全部楼层
百度了一圈,还是&#128522;不懂,盼盼盼……
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-6-20 21:25:38 | 显示全部楼层
期待^ω^期待……
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2015-6-23 10:50:26 | 显示全部楼层
我也看不懂,因为我没有学!呵呵
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2015-8-13 08:45:03 | 显示全部楼层
还没学到那里!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2016-7-14 20:44:58 | 显示全部楼层
break  跳出以后有按空格,他会抹掉第一次的查询内容,并且换行。再次查询的时候,那么第一行就没有了,加入第二行有所查询的内容,它会执行for语句第一行。他先加上第一行的字节数,第二行的意思是一个空格占两个字节。第三行的意思是所查找的内容在第二行的第几个字节处。那么它这一行前面的字计数就要减去1.

实现查找肝功能(2).txt

1.68 KB, 下载次数: 15

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2017-1-16 09:05:48 | 显示全部楼层
为什么每次查找只能查找第一个,而不能查找之后的所有相同字符。完整的代码是什么样的。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 15:24

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表